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Introduction 


This book contains 35 BASIC programs for the 
Commodore 64, each with easy-to-follow direc¬ 
tions, a complete program listing, notes about 
important variables, and an outline of how the 
program works. You don't need to know how to 
program the Commodore 64 to use this book— 
just type the program into your computer, 
SAVE it on disk or cassette tape, and then type 
RUN. If you already know BASIC, the informa¬ 
tion about important variables and how the 
programs work will help you understand how 
to modify the programs. 

Our PROOF-IT proofreading program helps 
you avoid typing errors. With PROOF-IT, you 
avoid the frustrating "debugging" needed 
when typing errors keep programs from work¬ 
ing right. Another helpfiil feature is the special 
notation used in the program listings. The no¬ 
tation shows each key you need to press, and 
gives a count for repeated strings of characters. 
Commodore character graphics are hard to 
read with "normal" listings on a Commodore 
printer. Finally, all programs (except the 
"QUICK” series) are identical from line 60000 
on. This “standard framework” handles 
keyboard input, joystick manipulation, the 
title screen, checking for Q to quit, and reset¬ 
ting the C-64 to standard colors, among other 
things. The standard framework saves lots of 
typing, since you type it only once (using 
PROOF-IT to make sure it's correct), SAVE it 
on disk or tape, and then LOAD it before typing 
a program from the book. 


THE PROOF-IT PROOFREADER 

PROOF-IT is a powerful proofreading program 
that helps you avoid typing mistakes. As you 
type each line of a program, PROOF-IT calcu¬ 
lates a "proof number" which it displays at the 
top of the C-64 screen when you press RETURN. 
At the end of each program line in the listings, 
we print the correct proof number for that line. 
If the number PROOF-IT shows matches the 
number in the book; the line you just typed is 


correct. If the numbers are different, you need 
to carefully check your line against ours, and 
correct the error. You may have misunderstood 
our listing notation (did you forget to hold 
down the SHIFT or COMMODORE keys?). Other 
common mistakes include using the letter "1” 
(el) instead of the number "1," the letter "O” 
(oh) rather than "0” (zero), or typing the wrong 
number of characters. 

PROOF-IT helps you type programs from this 
book that work the first time. It catches almost 
all typing mistakes, including transposed 
characters, such as "XT” when you meant 
"TX." PROOF-IT checks on “important” spaces 
inside quotes but ignores "unimportant” 
spaces outside of quotes. It even lets you use the 
handy "shorthand” of BASIC keyword ab¬ 
breviations, so you can type a question mark 
instead of the keyword "PRINT.” 

Getting Started with PROOF-IT 

1. Type NEW. 

2. Type PROOF-IT exactly as shown. Be careful 
to include blanks, since they are important. 

3. SAVE the program on disk or tape. Warning: 
you’ll lose PROOF-IT if you do not SAVE it 
now! 

4. Type RUN. The copyright notice will appear, 
then the message “SETTING UP” followed 
by a series of dots. 

5. If everything is correct, the C-64 will print 
"READY.” When you type a BASIC line and 
press RETURN, the proof number will appear 
in the upper left-hand corner of your screen 
in reverse video. 

PROOF-IT is great, but before you can use it 
you must type it into your C-64. Unfortunately, 
you won't have a smart program (such as 
PROOF-IT) to help you locate and correct typ¬ 
ing errors. 

To help solve this “getting started” problem, 
PROOF-IT checks itself four different ways, and 
prints an error message and stops if it finds 
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anything wrong. First, it first checks the crucial 
numbers on line 999. Next, it checks the main 
BASIC section for errors. If everything looks 
good, it reads a DATA line and checks it. If a DATA 
line is bad, it stops and reports the bad line. 
Finally, it counts the number of DATA lines, and 
complains if there are too few or too many. All 
this checking takes a few seconds, but it’s worth 
it, since PROOF-IT must be correct so it can 
accurately check all the programs you type 
from the book. 

Since getting PROOF-IT and the “Standard 
Framework” correct is so vital, you can get 
these important programs on disk or tape for a 
nominal charge. See the section Obtaining 
Programs on Disk for details. 


Using PROOF-IT 

Once you've successfully typed PROOF-IT, 
SAVEd it on disk or tape, and it has RUN cor¬ 
rectly, you are ready to type a program. If you 
are anxious to get started, you may want to 
select one of the short QUICK programs, since 
you don't have to type the standard framework 
first. If you type anything other than one of the 
QUICK programs, your next step is to type the 
standard framework (see listing on page xv .) 
and SAVE it for future use. 

If you are typing one of the QUICK programs, 
first LOAD the PROOF-IT program and RUN it. 
When it says "READY," type the first line from 
the listing you have selected. When you press 
RETURN, check the proof number on the screen 
with the number printed at the end of each line 
in this book. 

At the end of each program line in the book 
the proof number is shown as a REMark state¬ 
ment. For example, in this line, 

150 PRINT "HELLO" :rem 6470 

the part “:rem 6470” is the proof number. Do 
not include the trailing colon, “rem” and proof 
number when you type a line, since they are not 
part of the program. When the proof number 
shown on the screen matches the number in the 
book, the line has been typed correctly. If the 
proof numbers differ, check the line carefully, 
correct the error, press RETURN again, and then 
again check the proof number on your screen 
with the proof number shown in the listing. 

Lines 3-10 in the program listings do not 
have proof numbers in the book. Those lines 
don’t change how the program runs, and 


eliminating the proof numbers makes the 
copyright notice and version date easier to 
read. However, you do need to type lines 3-10 
so the proof number and line count for the en¬ 
tire program will check correctly with the 
numbers shown at the end of the listings in the 
book. 

Using “P” to Check a Whole Program 

In addition to showing the proof number for 
each line, PROOF-IT can also check an entire 
program to see that you have typed the right 
number of lines, and the right line numbers. 
With PROOF-IT active, if you type the com¬ 
mand P on a line by itself, and press RETURN, 
PROOF-IT will tell you the number of lines in 
the program, and the proof number for all the 
line numbers in the program. The correct 
number of lines and program proof value are 
printed at the end of each listing. 

If the numbers shown by PROOF-IT when 
you press P (and RETURN) match the numbers 
at the end of the listing, you have typed all the 
lines, and they all have the correct line num¬ 
bers. Should the proof numbers not match, 
you’ll know whether to look for either missing 
or extra lines. (Hint: did you forget to include 
the standard framework?) PROOF-IT doesn't 
tell you which lines are missing or extra, but 
you can list the program a screen at a time and 
check just the line numbers against the book. 

The P command checks all the line numbers 
in the program, but does not check the rest of 
the program. The line-by-line proof numbers 
are your assurance that each line is correct, 
while the P values tell you that you typed the 
right number of lines, and that you got all the 
line numbers correct. 

You can go back and check previous lines at 
any time with PROOF-IT, without retyping the 
line. LIST the line or lines you want to check, 
and use the cursor keys to put the cursor any¬ 
where on the line you want to check. When you 
press RETURN, the proof number for that line 
will be shown. 

Remember, PROOF-IT calculates a proof 
number for each line and prints it on the screen. 
But it's up to you to check that number against 
the correct proof value printed at the end of 
each line in the book. If you have trouble get¬ 
ting a program to work, LIST it in groups of 
about 15 lines, move the cursor to each line and 
press RETURN. Check each proof number 
against the number in the book. (It helps to 
have a partner, so one person works the C-64 
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keyboard, and the other reads the correct proof 
values from the book.) 

PROOF-IT can be “turned off” by typing the 
letter Q followed by a RETURN on a line by itself . 
This "deactivates” proofing, but leaves|the pro¬ 
gram intact. It can be turned back on by giving 
the command SYS 51000. 

PROOF-IT will help you type correct pro¬ 


grams, as long as you take the time to compare 
the proof number for each line with the book. 
The P command checks whether you have 
typed all the lines. Don't forget that the values 
shown at the end of each listing include the 
standard framework for all programs other 
than the QUICK series. 


1 PRINT CHR$(147);"PROOF-IT" 

5 PRINT "(C)-1984-THE-CODE-WORKS" 

10 REH AS OF cWAtJGlfC y 
20 REH BY HIKE HOWARD 
100 PRINTsPRINT "SETTING-UP" 

110 LN=990sREAD P,B,D,XsIF P+B+D=X THEN 130 
120 PRINT "ERROR-IN-999":END 
130 FOR Z s 2049 TO 2586$S=S+PEEK(Z):NEXT 
140 IF S=P THEN 160 

150 PRINT^ERROR-INJB ASIC-PROG RAH" SEND 
160 CS=0:FOR>Z=1 TO 6sREAD V 
170 IF V<0 OR^V>255 THEN 220 
180 P0KE«*B+CB, V s CB=CB+1 s CS=CS+V sN EXT 
190 PRINT ",";sA«A+l 

200 LN=LN+10 sREAD CKsIF CS=CK THEN 160 
210 PRINTsPRINT "ERROg/IN-LINE";LNsEND 
220 PRINTsPRINTsIF V=-l THEN 250 
230 PRINT "ILLEGAL a VALUE";V 
240 PRINT "IN-LINE";LN+10SEND 
250 IF A=D THEN SYS 51000sNEW 
260 PRINT "WRONG-NUHBER-OF-DATA-LINES"sEND 
999 DATA 38661,51000,61,89722 
1000 DATA 076,204,199,169,000,133,781 
1010 DATA 253,133,254,133,251,133,1157 
1020 DATA 252,165,043,133,176,165,934 
1030 DATA 044,133,177,160,000,177,691 
1040 DATA 176,133,163,200,177,176,1025 
1050 DATA 133,164,240,041,200,177,955 
1060 DATA 176,141,053,003,200,177,750 
1070 DATA 176,141,054,003,173,053,600 
1080 DATA 003,032,126,200,173,054,588 
1090 DATA 003,032,126,200,230,253,844 
1100 DATA 208,002,230,254,165,163,1022 
1110 DATA 133,176,165,164,133,177,948 
1120 DATA 076,077,199,169,013,032,566 
1130 DATA 210,255,169,018,032,210,894 
1140 DATA 255,166,253,165,254,032,1125 
1150 DATA 205,189,160,000,185,180,919 
1160 DATA 199,240,007,032,210,255,943 
1170 DATA 200,076,150,199,166,251,1042 
1180 DATA 165,252,032,205,189,169,1012 
1190 DATA 013,032,210,255,032,210,752 
1200 DATA 255,108,002,003,032,076,476 
1210 DATA 073,078,069,083,044,032,379 
1220 DATA 080,082,079,079,070,032,422 
1230 DATA 078,085,077,066,069,082,457 
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1240 DATA 032,061,032,000,169*215,509 
1250 DATA 141,004,003,169,199,141,657 
1260 DATA 005,003,096,032,124,165,425 
1270 DATA 186,189,001,001,201,161,739 
1280 DATA 240,038,173,000,002,201,654 
1290 DATA 081,240,013,201,080,208,823 
1300 DATA 008,173,001,002,208,003,395 
1310 DATA 076,059,199,096,173,001,604 
1320 DATA 002,208,250,169,124,141,894 
1330 DATA 004,003,169,165,141,005,487 
1340 DATA 003,108,002,003,152,072,340 
1350 DATA 169,000,133,251,133,252,938 
1360 DATA 165,020,032,126,200,165,708 
1370 DATA 021,032,126,200,169,000,548 
1380 DATA 133,253,162,000,189,000,737 
1390 DATA 002,240,039,201,143,240,865 
1400 DATA 035,201,032,240,022,201,731 
1410 DATA 034,240,007,032,126,200,639 
1420 DATA 232,076,032,200,072,165,777 
1430 DATA 253,073,001,133,253,104,817 
1440 DATA 076,049,200,165,253,240,983 
1450 DATA 237,169,032,076,049,200,763 
1460 DATA 166,214,202,142,052,003,779 
1470 DATA 162,000,189,157,200,240,948 
1480 DATA 007,032,210,255,232,076,812 
1490 DATA 084,200,165,252,166,251,1118 
1500 DATA 032,205,189,162,003,169,760 
1510 DATA 032,032,210,255,202,016,747 
1520 DATA 248,174,052,003,134,214,825 
1530 DATA 169,013,032,210,255,104,783 
1540 DATA 168,096,141,052,003,160,620 
1550 DATA 008,024,014,052,003,038,139 
1560 DATA 251,038,252,144,012,165,862 
1570 DATA 252,073,016,133,252,165,891 
1580 DATA 251,073,033,133,251,136,877 
1590 DATA 208,231,096,019,018,058,630 
1600 DATA 032,000,000,000,000,000,32 
1610 DATA -1 


UNDERSTANDING THE LISTINGS 

The program listings use a special notation that 
tells you which keys to press, instead of show¬ 
ing the graphics symbols used by Commodore. 
Before you type any of the programs, take some 
time and become familiar with the notation. It 
looks a little strange at first, but once you un¬ 
derstand just a few rules, you’ll be ready to type 
the programs. 

Our program listings use a special notation 
to show graphic characters. We selected 
characters that do not appear on the Commo¬ 


dore 64 keyboard to represent the special nota¬ 
tion. 

Curly braces ("{” and “}") are used to enclose 
the special notation, which will be explained 
below. Important spaces in the listings are 
shown with a caret, so you'll see exactly where 
spaces are needed. For example, 

170 PRINT "THE^SKY^ISaBLUE" srem 1023 

has three “important” blanks, each shown with 
a caret. 
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The degree symbol indicates repeated 
characters. For example, if you see 

200 PRINT "tl0°down>" :rem 9026 


you should type: 

the number 200 
the word PRINT 
a quote (“) 

press the cursor-down key 10 times 
and the closing quote (”) 

The example shows two important points 
about the notation. First, curly braces are never 
typed, since they indicate that special notation 
is being used. Second, the degree symbol is 
never typed. It always comes between a 
number (the repeat count) and another symbol. 
The degree symbol is not on the C-64 keyboard, 
which is why we used it to tell you how many 
times to press the following key. 

In the listings, long lines are printed as sev¬ 
eral lines in the book, even though you will type 
them as one long "wraparound” line on the 
C-64. We always break the line at a convenient 
point selected to “make sense" when typing the 
listing. You should only press RETURN at the 
very end of each BASIC line, regardless of how 
many printed lines are shown in the book. Press 
RETURN just before the ":rem” which sets off 
the PROOF-IT proof number at the end of each 
line. 

In the listings we use lowercase names such 
as {up} and {red} for cursor and color keys. 
Graphics are shown as the actual key to press 
(usually a capital letter) inside curly braces. 
Table 1 shows how the keys appear in the list¬ 
ings, the key (or keys) you must press, and a 
picture of the graphic symbol that will appear 
on the C-64 screen. A few minutes spent study¬ 
ing Table 1 before you type your first program 
may save you quite a bit of time. 


Cursor and Function Keys 

In the listings, the cursor keys are shown as 
{up}, {down}, {left}, {right}, {home}, and 
{clrj, while {inst} means "press the insert key.” 
These are always inside quotes, since otherwise 
they would actually move the cursor around on 
the screen. A few programs use C-64 function 
keys, shown as the name of the key, such as {fl} 
for the Fl function key. 


You move the cursor on the C-64 screen by 
pressing the two cursor keys (they are labeled 
“CRSR,” one with left and right arrows, the 
other with up and down arrows). To move the 
cursor in a program, we use cursor characters 
in a string, which is always inside quotes. 

Things get a little complicated when you are 
dealing with cursor keys inside of quotes. When 
you type a program, the C-64 knows you are in 
“quote mode” when you press a double quote 
(the shifted 2). You remain in quote mode until 
you type the closing quote, Once you are in 
quote mode, the only cursor movement key that 
"works” (instead of being placed into the 
string) is the delete function DEL. So, you can 
back up and correct mistakes with DEL, but you 
can't move back and forth with the arrow keys. 
If you get confused, you can "bail out” by hit¬ 
ting RETURN, which ends "quote mode.” Then, 
go back up on the line and correct it as needed 
(and check the PROOF-IT number when you 
press RETURN). 


The Color Keys 

The C-64 supports 16 colors. For the first eight 
color keys, we use the names printed on the 
front of the number keys. When you see a color 
name in curly braces, press the CTRL key, hold it 
down, and press the number key with that 
name. For example, when you see 

150 PRINT "(redlHELLO* :rem 41850 

type: 

the number 150 
a blank 

the word PRINT 
a quote (“) 

hold down CTRL and press 3 (for red) 
the word HELLO 
and a closing quote (”) 

This one-line program prints the word 
“HELLO” in the color red. 

We show the second set. of eight colors (pro¬ 
duced by pressing the COMMODORE key, holding 
it, and pressing one of the number keys) as the 
color printed on the key, with underlining to 
indicate the COMMODORE key. Whenever you 
see something underlined in our listings it 
means “hold down the COMMODORE key and 
press the underlined key.” For example, { blk} 
produces orange, the second color for the “blk” 
key. Look at Table 1 for a full list of the under¬ 
lined color names, and the keys they represent. 
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Table 1 . Notation for Program Listings 



Key(s)to 

Screen 


Key(s) to 

Screen 


Press: 

Graphics: 

Listed: 

Press: 

Graphics: 

{home} 

HOME 

m 

{Mm} 

COMMODORE 7 

m 

{clr} 

SHIFT CLR 

m 

{yel} 

COMMODORE 8 

i 

fl 

{up} 

SHIFT CRSR UP 

m 

{rvs-on} 

CTRL 9 

a 

{down} 

CRSR DOWN 

m 

{rvs-off} 

CTRLO 

■ 

{left} 

SHIFT CRSR LEFT 

O 

{pi} 

SHIFT t 

m 

1 

{right} 

CRSR RIGHT 

tl 

{space} 

SPACE BAR 

H 

| M ■ ■ ■■ 

{inst} 

SHIFT INST 

■1 

{shift space} 

SHIFT SPACE BAR 

k 


{blk} 

CTRL 1 

■ 

{A} 

SHIFT A 


{wht} 

CTRL 2 

■ 

{B} 

SHIFT B 

m 

1 

{red} 

CTRL 3 

m 

{C} 

SHIFT C 


{cyn} 

CTRL 4 

■ 

{D} 

SHIFT D 


1 

{pur} 

CTRL 5 

m 

{E} 

SHIFT E 

1 

II 

{gm} 

CTRL 6 

m i 

{F} 

SHIFT F 

1-1 

{blu} 

CTRL 7 

m 

{G} 

SHIFT G 

M 


{yei} 

CTRL 8 


{H} 

SHIFT H 

H| 

1 

{blk} 

COMMODORE 1 

m 

{1} 

SHIFT I 

■j 

1 

{wht} 

COMMODORE 2 

m 

{J} 

SHIFT J 

If 

1 



■ 



w? 

m 

{red} 

COMMODORE 3 

■ 

{K} 

SHIFT K 

Willi 


{cyn} 

COMMODORE 4 


{L} 

SHIFT L 

1 


{pur} 

COMMODORE 5 

m 

{M} 

SHIFT M 

B 

{gm} 

COMMODORE 6 

u 

{N} 

SHIFT N 

1 







































Listed 



Key(s) to 
Press: 


Screen 

Graphics: 


Listed 



Key(s) to 
Press: 


Screen 

Graphics: 


SHIFT O 


COMMODORE J 


SHIFT P 


COMMODORE K 


SHIFT Q 


SHIFT R 


SHIFTS 


COMMODORE L 


COMMODORE M 


COMMODORE N 


SHIFT T 


COMMODORE O 


SHIFT U 


COMMODORE P 


SHIFTY 


COMMODORE Q 
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The SHIFT and COMMODORE Keys 

The Commodore 64 uses most keys for three 
different codes. All of the letter keys (and a 
small handful of other keys) produce a letter 
and two different graphic symbols. The graphic 
printed on the right side of the front of a key is 
produced by holding SHIFT and pressing the 
key. The graphic on the left front of a key is 
produced by holding the COMMODORE key and 
pressing the letter key. 

In the listings we show SHIFT graphics as a 
capital letter inside curly braces. For example, 
{Z} means "hold down SHIFT, and press the 
letter Z.” Besides the 26 letters of the alphabet, 
the commercial “at" sign, the asterisk, the plus 
and minus sign, and the "pound” sign some¬ 
times appear inside curly braces, since they 
produce Commodore graphic characters. 

The rule is simple: capital letters inside curly 
braces indicate SHlFTed graphic characters, 
while underlined capital letters inside braces 
mean COMMODORE graphic characters. A com¬ 
mon mistake is forgetting to hold down the 
SHIFT or COMMODORE keys for characters inside 
curly braces. If a PROOF-IT number doesn't 
match, chances are you've forgotten to hold 
down the COMMODORE key for an underlined 
letter inside curly braces. 

Reverse-video and Spaces 

Reverse-video is shown in the listings as 
{rvs-on} and {rvs-off}. These are produced by 
holding the CTRL key down, and pressing 9 for 
{rvs-on) and 0 for {rvs-off}. 

A long sequence of blanks is fairly common in 
C-64 programs. We use the repeat notation 
when more than three important blanks occur 
together. For smaller numbers of blanks, we 
use the caret. 

Note that blanks inside curly braces are not 
typed, unless you see the word {space}. Blanks 
inside braces are used to separate the spelled- 
out notation, and are included strictly for ease 
of reading. For example, 

130 X$="{2°down 2°right} n :rem 6514 

means you should type: the number 130 

a blank 
the letter X 
a dollar sign 
an equal sign 
a quote 
cursor-down 
cursor-down 
cursor-right 
cursor-right 
a quote. 


Notice that that no spaces were typed inside 
the quotes in this example. 

The blanks inside braces are strictly for easy 
reading. When a blank is required, it will be 
shown as a caret ("A”) outside of curly braces, 
or the word {space} inside braces. 

THE STANDARD FRAMEWORK 

All programs (except those named QUICK) 
use a standard framework of lines from 60000 
to 62200. Since this section is always the same, 
you should type it once, SAVE it on disk or tape, 
and then always LOAD it right after you LOAD 
and RUN the PROOF-IT program. That way, 
you will know that lines 60000-62200 are al¬ 
ways right, and will save lots of typing. 

There is a reminder at the end of each pro¬ 
gram that uses the framework. However, you 
should LOAD the framework before you start 
typing your program. If you forget to do so, but 
have a floppy disk, the MERGE program will 
merge the program you typed together with the 
framework, and create a new file. However, 
LOADing the framework before you begin typ¬ 
ing a new program is better, since that is much 
faster than using MERGE. If you use cassette 
tape, and forget to LOAD the standard 
framework first, you will have to go ahead and 
type it again. Since that’s a lot of extra work, 
remember to LOAD the framework before you 
start typing! 

Getting Started with the 
Standard Framework 

An important thing to understand about the 
standard framework is that it is not a program 
that you’ll ever RUN by itself. It is a set of 
routines that we use from our programs with 
GOSUB or GOTO commands. Follow these 
steps: 

1. LOAD the PROOF-IT program, and RUN it. 
This lets you proofread each line of the 
framework as you type it in. 

2. Type the standard framework. 

3. Press P followed by RETURN. Check the 
number of lines and program proof number 
against the listing, and make sure they 
match. 

4. SAVE the standard framework (we call it 
“FRAME") on disk or tape. 

After you have a good version of the 
framework, follow this procedure when you 
want to type a new program: 
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1. LOAD the PROOF-IT program, and type 
"RUN.” 

2. LOAD the standard framework. 

3. Type the program, and check the proof 
number for each line. 

4. After typing the entire program, press P and 
RETURN, and check the number of lines and 


the total proof number against the listing. If 
both numbers match, the program is correct. 

5. SAVE the program you have just typed on 
disk or tape before you RUN it. There’s al¬ 
ways some slight chance that something 
might happen, and if you haven’t SAVEd a 
copy you would have to retype it. 
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Important Variables in the FRAMEWORK 

AU$ First author's name 
A2$ Second author's name 

BG$ Prompt message for what to press to exit title 
page 

CM Base address of color memory 
CRT Base address of screen memory 
CR$ Character code of a carriage return 
IN Default and final choice for the joystick input 
routine 

IN$ Return string of the input routine 
JC$ For the joystick input routine, holds two color 
code characters. The first is for choices not 
selected, the second is for the selected choice. 
JM Number of options in the joystick input routine 
JS Address of joystick port number 2 
JT Tab position of first choice for joystick input 
routine 

JW Width in characters of each choice for joystick 
input routine 
PG$ Program title 


PR$ Prompt line for the joystick input routine 
QI Maximum number of characters for the keyboard 
input routine 

QL Address of current line number on screen 
SID Base address of SID sound chip 
VIC Base address of the VIC chip 
WD Width of screen (in columns) 

Z ASCII code of key-press and temporary joystick 
value 

Z$ Current key pressed 

ZC Cursor on/off toggle flag 

ZD$ Character code of DEL Key 
ZJ Limits speed of changing choice in joystick input 
ZL Current length of input string for the keyboard 
input routine 

ZS Current color code of blinking option for the 

joystick input routine 

ZT Timing variable to blink cursor in the keyboard 
input routine 


How the FRAMEWORK Works 

60000-60140 Keyboard input routine 
60200-60280 Joystick input routine 
60500 Checks for “Q''uit key press to end a 
program 


60600-60610 Reset Commodore 64 to standard condition 
61000-61010 Defines framework variables 
62000-62200 The framework title page 
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JOYSTICKS 

Many of the games in this book use a joystick. At 
the end of the directions, you'll find a note such 
as “Uses joystick." Also, the title screen of the 
program will ask you to press the joystick but¬ 
ton to continue. 

Plug the joystick into control port 2. We use 
control port 2 because under some circum¬ 
stances, port 1 can interfere with the keyboard. 
If the joystick does not respond, you may have 
plugged it into the wrong port, or it may be 
loose, it is easy to accidentally pull the joystick 
cord so that it does not have good contact. A 
plastic cassette case placed under the joystick 
plug is just the right height to relieve the strain, 
and help the joystick work reliably. Many joy¬ 
sticks are sold for the C-64. We use the regular 
Atari joysticks (used with the Atari 2600 game 
console). These joysticks are inexpensive, reli¬ 
able, and widely available. Some joysticks only 


let you move in four directions. This style of 
joystick will work with many of our games, 
but not with ATTACK, where you frequently 
need to fire or move diagonally. 

OBTAINING PROGRAMS ON DISK 

You can purchase a "Starter Pack” containing 
only PROOF-IT and the Standard Framework 
on cassette or disk for $8.00. Or, you can get a 
disk with all the programs in the book for 
$30.00. Prices include shipping in the United 
States and Canada. If you buy the disk, you will 
still need this book for instructions and pro¬ 
gram listings. Order from: 

C-64 Fun and Games, Vol. 2 
do The Code Works 
Box 6905 

Santa Barbara, CA 93160 USA 




QUICK-A 


Mike Howard 


T his is a short program for the Commo¬ 
dore 64 that you should be able to type 
in less than 10 minutes. Before you be¬ 
gin, remember to load the PROOF-IT program 
and then RUN it. This will print out the “Proof 
Number" at the upper left-hand corner of the 
screen. This number should exactly match the 
number printed as a remark at the end of each 
line of this program. (Don't type in the trailing 
colon with its lower-case rem and the PROOF- 
IT number.) 

QUICK-A paints the screen of the Commo¬ 
dore 64 with brightly colored rectangles. By 



changing line 130 you can select a different set 
of colors for the rectangles. The -1 at the end of 
the DATA marks the end of the list of colors. The 
color numbers can range from 0 to 15. The first 
eight colors are shown on the front of the 
number keys on the Commodore keyboard. 
However, there's a catch: black is 0, white is 1, 
red is 2, and so on. So, just subtract 1 from the 
numbers on the keys to get what you need. If 
you want to repeat the colors red, white, and 
blue, line 130 would be: 130 DATA 2,1,6,-1. Press 
Q to quit. 


1 REM QUICK-A — MIKE HOWARD :rem 256 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 26JUL84 
100 DIM A(100)sNC=0 :rem 6256 
110 READ V:IF V<0 THEN 150 :rem 42390 
120 NC=NC+l:A(NC)=V:GOTO 110 srem 8097 
130 DATA 7,10,15,1,14,6,-1 srem 35248 
140 L=Y+XsP0KE CRT+L,CT:POKE CM+L,CL:RETURN :rem 36703 
150 PRINT n (clr}"sVIC s =53248sPOKE VIC+32,1 sPOKE VIC+33,1 srem 29552 
160 CRT=1024:CM=55296:WD=40:CT=160:C=1 :rem 58897 
170 FOR K-17 TO 2 STEP -1 srem 17319 
180 P=INT(RND(1) *5) *8:Q=INT(RND(1) *6) *4 srem 1454 
190 B=0 srem 16200 
200 FOR J=1 TO K srem 14532 

210 CL=A(C)s C=C+1$ IF C>NC THEN C=1 srem 14397 
220 Y=QsIF Y>=0 THEN D=lsGOSUB 310 srem 62954 
230 X=P+BsIF X<=39 THEN D=lsGOSUB 360 srem 54541 
240 Y=Q+BsIF Y<=24 THEN D=-lsGOSUB 310 srem 36667 
250 X=PsIF X>=0 THEN D=-lsGOSUB 360 srem 29263 
260 GET Z$sIF Z$="Q“ THEN 305 srem 9074 
270 P=P-1:Q=Q-1sB=B+2 srem 54033 
280 NEXT J srem 6321 
290 NEXT K srem 62190 
300 GOTO 170 srem 65294 

305 POKE VIC+32,14sPOKE VIC+33,6sPRINT "(clr blu} n ;sEND srem 34904 
310 XL=PsIF XL<0 THEN XL=0 srem 33374 
320 XH=P+BsIF XH>39 THEN XH=39 srem 62492 

330 Y=Y*WDsIF D>0 THEN FOR X=XL TO XHsGOSUB 140sNEXT X srem 11271 
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340 IF D<0 THEN FOR X=XH TO XL STEP -lsGOSUB 140:NEXT X srem 17173 

350 RETURN :rera 47797 

360 YL=Q:IF YL<0 THEN YL=0 srem 46725 

370 YH=Q+BsIF YH>24 THEN YH®24 srem 55971 

380 IF D>0 THEN FOR Y=YL*WD TO YH*WD STEP WDsGOSUB 140sNEXT Y srem 47043 
390 IF D<0 THEN FOR Y=YH*WD TO YL*WD STEP -WDsGOSUB 140sNEXT Y srem 14337 
400 RETURN srem 33335 

38 lines, proof number ■ 8007 


Important Variables in QUICK-A 

A() Color codes to be POKEd in screen color memory 
B Length of color bar to be displayed 

CT Value of the character code POKEd onto screen 
D Direction flag for expansion for one side of box 
J Loop variable for expansion and color of box 
K Loop variable for number and size of boxes 
NC Counter for number of colors in color array 
P Random horizontal position on screen 


Q Random vertical position on screen 

X X-coordinate position of box wall 

XH Right end position of horizontal box wall 

XL Left end position of horizontal box wall 

Y Y-coordinate position of box wall 

YH Top end position of vertical box wall 
YL Bottom end position of vertical box wall 
Z$ Check for Quit 


How QUICK-A Works 


100-130 Read color codes into array from DATA 

140 Drawing routine 

150-160 Setup screen and constants 

170-300 Main (nested) loop of program. 

170-190 Position and size of box 


200-280 Color and expansion of box 

300 Jump back to main loop 

305 End program 

310-350 Horizontal lines 

360-400 Vertical lines 



QUICK-B 


Rob van Gelder 


T his graphics demonstration shows a 
spider creating a web on the screen of 
the Commodore 64. Although this pro¬ 
gram is a little more than twice as long as 
QUICK-A, it's still an easy program to type into 



your computer, and is a clever example of sim¬ 
ple but powerful character graphics. If you 
change the variable TE in line 180, you can 
make the spider spin the web faster or slower. 
Press Q to quit. 


1 REM QUICK-B — ROB VAN GELDER :rem 256 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 31JUL84 
100 CRT=1024:HT=24:WD=40 srem 56170 
110 CM=55296-CRT srem 4756 
120 VIC=13*4096 srem 35499 
130 GOSUB 9000 srem 42550 
140 POKE VIC+24,31 srem 41995 

150 GOSUB 300$Q=PEEK(VIC+17)sPOKE VIC+17,0sPOKE VIC+32,9 srem 16378 
160 POKE VIC+33,1sPOKE 646,lsPRINT "(clr)";CHR$(8) srem 59706 
170 POKE VIC+17,QsPOKE VIC+33,12 srem 20290 
180 PRINT "(home 2°down wht l"sTE=5 sSP=42 srem 5746 
190 FOR X=1 TO 20sPRINT TAB(6);"(rvs-on) A {rvs-off}"sNEXT srem 8310 
200 PRINT "(up 6°right)";sFOR X=1 TO 30sPRINT "(rvs-on)„(rvs-offs 
NEXT srem 46369 

210 PRINT "(up 14°left)";sFOR X=1 TO 15sPRINT "(rvs-on £ rvs-off £ up 
left)";sNEXT srem 37128 
220 X=CRT+2*WD+5sR=32sRESTORE srem 28775 

230 DR(1)=39sDR(2)=40sDR(3)=41sDR(4)=-lsDR(6)=lsDR(7)=-41sDR(8)=-40s 
DR(9)=-39 srem 13700 

240 READ L,C,T2sIF L=0 THEN TE=240sGOSUB 270sGOTO 140 srem 11349 
250 C=DR(C) srem 28710 

260 GOSUB 300sGOSUB 320sGOTO 240 srem 19380 

270 TM=TI+TE srem 2385 

280 IF TI<TM THEN 280 srem 40289 

290 RETURN srem 1454 

300 GET Z$sIF Z$<>"Q" THEN RETURN srem 42288 

310 PRINT "(clr blu)";CHR$(9)sPOKE VIC+32,14sPOKE VIC+33,6sPOKE VIC+24,21s 
END srem 2583 

320 IF L<0 THEN R=T2sL=-L srem 57848 

330 IF T2=0 THEN GOSUB 410sRETURN srem 26944 

340 GOSUB 350sRETURN srem 21138 

350 IF R>0 THEN POKE CM+X,GsPOKE X,R srem 1400 

360 IF L<2 THEN 390 srem 56547 

370 FOR Q=2 TO LsX=X+CsG=PEEK(CM+X)sPOKE CM+X,0sPOKE X,SPs 
GOSUB 270 srem 62990 

380 POKE X,T2sPOKE CM+X,GsNEXT Q srem 59458 


3 









4 


COMMODORE 64 FUN AND GAMES Volume 2 


390 X=X+C$R=PEEK(X)sG=PEEK(CM+X)sPOKE CM+X,0sPOKE X,SP :rem 47573 
400 RETURN :rem 33335 

410 IP R>0 THEN POKE CM+X,GsPOKE X,R :rem 52988 
420 IP L<2 THEN 450 :rem 47842 

430 POR Q=2 TO LsX=X+CsR=PEEK(X):G=PEEK(CM+X) :rem 47303 
435 POKE CM+X,0:POKE X,SPsGOSUB 270 :rem 48015 
440 POKE CM+X,G:POKE X,RsNEXT Q srem 20851 

450 X=X+CsR=PEEK(X)sG=PEEK(CM+X)sPOKE CM+X,0sPOKE X,SP srem 60891 
460 RETURN srem 6478 

5000 DATA 23,6,100,-1,3,100,-5,3,77 srem 47367 
5010 DATA -5,7 f 77,12,4,32 f -19,2,93 srem 163 
5020 DATA 11,4,160,10,8,160,11,6,64 srem 18063 
5030 DATA 14,6,64,14,4,64,10,9,78 srem 35555 
5040 DATA 10,1,78,10,7,77,10,3,77 srem 34558 
5050 DATA 7,3,77,7,7,77,10,1,78 srem 3188 
5060 DATA 10,9,78,-1,8,87,1,7,0 srem 11373 
5070 DATA -1,6,100,2,6,100,1,4,0 srem 17296 
5080 DATA 2,3,77,2,1,78,-1,4,99 srem 501 
5090 DATA 2,4,99,1,6,0,2,7,77 srem 20450 
5100 DATA 2,9,78,1,7,0,-2,6,100 srem 51628 
5110 DATA 3,6,100,1,4,0,3,3,77 srem 2077 
5120 DATA 3,1,78,-2,4,99,3,4,99 srem 59767 
5130 DATA 1,6,0,3,7,77,3,9,78 srem 6860 
5140 DATA 1,7,0,-3,6,100,4,6,100 srem 49186 
5150 DATA 1,4,0,4,3,77,4,1,78 srem 34652 
5160 DATA —3,4,99,4,4,99,1,6,0 srem 59096 
5170 DATA 4,7,77,4,9,78,1,7,0 srem 23874 
5180 DATA -4,6,100,5,6,100,1,4,0 srem 9665 
5190 DATA 5,3,77,5,1,78,-4,4,99 srem 41957 
5200 DATA 5,4,99,1,6,0,5,7,77 srem 59926 
5210 DATA 5,9,78,1,7,0,-5,6,100 srem 35944 
5220 DATA 6,6,100,1,4,0,6,3,77 srem 16187 
5230 DATA 6,1,78,-5,4,99,6,4,99 srem 30506 
5240 DATA 1,6,0,6,7,77,6,9,78 srem 17529 
5250 DATA 1,7,0,-6,6,100,7,6,100 srem 33730 
5260 DATA 1,4,0,7,3,77,7,1,78 srem 3764 
5270 DATA -6,4,99,7,4,99,1,6,0 srem 41703 
5280 DATA 5,7,77,4,8,160,5,9,78 srem 47129 
5290 DATA 1,7,0,-7,6,100,8,6,100 srem 56207 
5300 DATA 1,4,0,8,3,77,8,1,0 srem 46737 
5310 DATA 2,4,0,-5,4,99,8,4,99 srem 16551 
5320 DATA 1,6,0,4,7,77,8,8,160 srem 21598 
5330 DATA 4,9,78,8,3,0,1,4,0 srem 26023 
5340 DATA 0,0,256 srem 6836 

9000 PRINT "(clr whtJSETTING^UP..." srem 24013 

9010 READ TsIP T<>256 THEN 9010 srem 23839 

9020 B=49408s1=0 srem 37546 

9030 READ VsIP V=-l THEN 9050 srem 39150 

9040 POKE B+I,VsI=I+lsGOTO 9030 srem 34743 

9050 SYS 49408 srem 38066 

9060 B=14672 srem 39429 

9070 FOR Z=0 TO 7 sREAD VsPOKE B+Z,VsNEXT Z srem 45120 
9080 RETURN srem 56337 

9090 DATA 120,165,1,41,251,133,1,169,0,133,251,133,253,169,56 srem 46813 
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9100 DATA 133,252,169,208,133,254,162,8,160,0,177,253,145,251 :rem 30899 
9110 DATA 200,208,249,230,252,230,254,202 f 208,240,165,1,9,4 :rem 1255 
9120 DATA 133,1,88,96,-1 srem 9684 
9130 DATA 36,90,1189,90,165,66,0,0 jrem 51247 


93 lines, pr 


oof number 


64404 


Important Variables! 


in QUICK-B 


B 

C 

DR() 

G 

I 

L 


Address for programmed character set 
Direction control read from DATA 
Numbers added to screen position of an object to 
move it 

Character color the spider is on 
Counter for programmable character setup 
Number of characters to display 


How QUICK-B Works 


100-130 General set ijip 

140-210 Draw frame for the web 

220-230 Arrange things to draw a new web 
240-260 Main loop: read spider's next move, do 
time delays, go to draw routine 
270-290 Time delay 

300-310 Check for *'Q” to quit 

320-340 Evaluate jumps for the two following 

routines 


R Character the spider is on 
SP POKE value for the spider 
T2 Character POKE code the spider leaves as its 
web 

TE Added to TI for time delay 
X Current screen memory location of spider 

Z$ Check for Quit 


350-400 Normal direction 

410-460 Altered direction 

5000-5340 DATA for spider's movements: the number 
of characters in current movement, 
direction of travel, and the characters left 
in web. 

9000-9120 Programmable character set setup 

9130 DATA for programmable characters 


QUICK-C 


Mark Stewart 


T his program paints a bright yellow and 
blue pattern on the screen. Since it uses 
some machine language, the screen 
changes rapidly, producing an almost strobo¬ 



scopic effect. Press the space bar to freeze the 
display. You can modify the variable DE in line 
110 to slow down the display. Press Q to quit. 


1 REM QUICK-C — MARK STEWART :rem 256 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 26JUL84 

100 CRT=1024:HT=24:WD=40:VIC=53248 srem 61400 
110 BF=630:NK=198:DE=15 :rem 26582 
120 GOSUB 180 ;rem 46128 

130 POKE VIC+32,6:POKE VIC+33,7 :rem 16809 
140 PRINT "{yel clr}"sPOKE VIC+33,6 :rem 41283 
150 GOSUB 310 :rem 48066 

160 POKE VIC+32,14:POKE VIC+33,6 srem 52645 
170 PRINT "(clr blu)":END srem 35448 
180 PRINT "tclr whtlSETTING.UP..." :rem 17601 
190 B=826:P=7 srem 20479 

200 READ AsIF A<>999 THEN POKE B,AsB=B+lsGOTO 200 srem 34701 

210 A=CRT-1 srem 7021 

220 B=896 srem 14598 

230 FOR 1=0 TO 24 srem 65276 

240 H=INT(A/256)SPOKE B,A-256*HsPOKE B+25,H srem 54582 
250 B=B+1$A=A+WDsNEXT I srem 42024 
260 RETURN srem 16650 

270 DATA 173,125,3,24,109,127,3,170,189 srem 36056 

275 DATA 127,3,24,109,124,3,141,251,0,189 srem 53756 

280 DATA 152,3,105,0,141,252,0,173,197,0 srem 43708 

285 DATA 201,64,208,249,172,126,3,177,251,73,128 srem 54651 

290 DATA 145,251,136,208,247,202,236 srem 56698 

295 DATA 125,3,208,213,96,999 srem 54991 

310 Z=INT(RND(1)*P+1) srem 27296 

320 IF F THEN RETURN srem 4418 

330 ON Z GOSUB 350,400,450,500,550,600,650,63999 srem 35859 

340 GOTO 310 srem 7930 

350 A=3$B=0sC=37sD=24 srem 10653 

360 POKE 892,AsPOKE 893,BsPOKE 894,CsPOKE 895,DsSYS 826 srem 41210 

370 A=AsB=BsC=C-lsD=D-lsIF D=0 THEN RETURN srem 25576 

380 GOSUB 700sIF F THEN RETURN srem 38315 

390 GOTO 360 srem 23697 

400 A=3$B=0$C=37sD=24 srem 17613 

410 POKE 892,AsPOKE 893,BsPOKE 894,CsPOKE 895,DsSYS 826 srem 10881 
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QUICK-C 


420 A=A+lsB=B+l:CpC-2:D=D-2sIF C<=14 THEN RETURN :rem 61791 

430 GOSUB 700sIF F THEN RETURN srem 57433 

440 GOTO 410 srem 42437 

450 A=14:B s ll:C = 15:D-2 srem 25893 

460 POKE 892 f AsPOJCE 893,B:POKE 894 r C:POKE 895,D:SYS 826 srem 2694 

470 A=A-1sB=B-lsC-C+2sD=D+2sIF A<3 THEN RETURN srem 38178 

480 GOSUB 700sIF |f THEN RETURN srem 52471 

490 GOTO 460 srem; 14998 

500 A=3sB®0sC=37sD=24 srem 17219 

510 POKE 892,AsPOKE 893,BsPOKE 894,C:POKE 895,D:SYS 826 srem 58724 

520 A=A+1sB=B$C=C-lsD=D-lsIF D<=0 THEN RETURN srem 20926 

530 GOSUB 700sIF F THEN RETURN srem 54924 

540 GOTO 510 srem 52275 

550 A=3sB=0sC=37sD=24 srem 7367 

560 POKE 892,AsPOKE 893,BsPOKE 894,CsPOKE 895,DsSYS 826 srem 12128 

570 A=A+lsB=BsC=C-lsD=DsIF C<=0 THEN RETURN srem 11394 

580 GOSUB 700sIF F THEN RETURN srem 32803 

590 GOTO 560 srem 21344 

600 A=3sB=0 sC=37sD-24 srem 41884 

610 POKE 892,AsPOKE 893,BsPOKE 894,CsPOKE 895,DsSYS 826 srem 31326 

620 A=A+1sB=BsC=C-2sD=D-lsIF C<=0 THEN RETURN srem 7597 

630 GOSUB 700sIF F THEN RETURN srem 45638 

640 GOTO 610 srem 30205 

650 A=3sB=0sO37sD=24 srem 5205 

660 POKE 892,AsPOKE 893,BsPOKE 894,CsPOKE 895,DsSYS 826 srem 34076 

670 A=A+lsB=B+ls0=C-2sD=D-lsIF C<=0 THEN RETURN srem 10051 

680 GOSUB 700sIF F THEN RETURN srem 29348 

690 GOTO 660 srem 45948 

700 FOR Z=1 TO DEsNEXT srem 9823 

705 F=0sGET Z$ srem 21876 

710 IF Z$="Q" THEN F=1 srem 25864 

720 RETURN srem 51699 

72 lines, proof number - 63185 


Important Variables in QUICK-C 


A Used to convert screen memory address from C Width of inverse block 

decimal to a two-byte number. Also used as the D Height of inverse block 

horizontal distance from left side of screen F Quit flag 

B Address for machine language that does the P Control range of random number 

inverse block. Also used as the vertical distance Z Random number for graphics 

from top of screen. Z$ Check for Quit 


How QUICK-C Works 


100-140 Set up constants 

150 Jump to main program routine 

160-170 Program end 

180-295 Set up machine language and DATA 

310-340 Main program loop: pick random graphic 
routine and jump to it 

350-690 Graphic routines. Each routine is 

controlled by three parameters: memory 
location, variable for that location, and 
function. 892, A is the horizontal position of 
block, 893, B is the vertical position, 894, C 
is the length of the horizontal sides of 
block, and 895, D is the length of vertical 


sides. SYS 826 calls the machine language 
routine 

350-390 Move block to the upper-left corner of 
screen 

400-440 Move block from edges toward the center of 
screen 

450-490 Move block from the center going out in all 
directions 

500-540 Move block to upper-right corner of screen 
550-590 Move block horizontally from left to right 
600-640 Move block from the center up 

650-690 Move block from the center down 
700-720 Check for Quit. 





QUICK-D 

Peter Steams 


Mh, 

fpphy 

if*U*if*if* La 

■ • H- #■'• ,i»'-V &*/ 

HiMiF" 

mm-' 

mi/-' 

0/ 


T his little program creates an interesting 
optical illusion as a pile of blocks is 
stacked, unstacked, and then restacked. 


No, it won’t keep you awake nights, but it only 
takes a few minutes to get it working, and it’s 
fun to watch! 


1 REM QUICK-D — PETER STEARNS srem 256 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 26JUL84 

100 CRT=1024:SC=CRT+502;VIC=53248:SID=54272 srem 59295 
110 POKE SID-t-5,21 :POKE SID+6,21 :POKE SID+1,4 srem 24542 
120 POKE SID+24,15 srem 12028 
130 CM=55296sTC=CM+502 srem 55398 

140 PRINT "telr}"SPOKE VIC+32,0sPOKE VIC+33,0 srem 25621 
150 GOSUB 180 srem 37504 
160 POKE SID+24,0 srem 32200 

170 POKE VIC+32,14sPOKE VIC+33,6sPRINT "{clr blu)"sEND srem 35203 

180 CC-5sDE=75sRA=6sSD=10 srem 41500 

190 FOR MX=0 TO 8 srem 524 

200 FOR Z-0 TO MX srem 23957 

210 FOR X=0 TO MX-Z srem 14211 

220 Y=MX-Z-X srem 17551 

230 SP=SC-40*Z+39*Y+XsCP=TC-40*Z+39*Y+X srem 41798 

240 IF X»0 THEN POKE SP-40,233sPOKE CP-40,CCsGOTO 260 srem 55794 

250 POKE SP-40,160sPOKE CP-40,CC srem 59851 

260 POKE SP,230sPOKE CP,CC srem 59114 

270 IF Z=0 THEN POKE SP+l,78sPOKE CP+l,CCsGOTO 290 srem 45115 

280 POKE SP+1,233sPOKE CP+1,CC srem 51223 

290 POKE SP-39,105sPOKE CP-39,CC srem 13292 

300 IF Y=0 THEN POKE SP-38,101sPOKE CP-38,CC srem 46344 

310 GOSUB 540 srem 834 

320 FOR I=X*Y*3+MX*3+3*Z TO DEsGET A$sIF A$="Q" THEN RETURN srem 65298 
330 NEXT I srem 28783 

340 NEXT X,Z,MX srem 16959 

350 POKE SID+1,8 srem 46184 
360 FOR Y=8 TO 0 STEP -1 srem 38219 
370 FOR Z=8-Y TO 0 STEP -1 srem 24920 
380 FOR X=8-Y-Z TO 0 STEP -1 srem 49693 
390 SP=SC-40*Z+39*Y+X sCP=TC-40*Z+39*Y+X srem 22039 
400 IF Y=0 THEN POKE SP-39,32sPOKE SP-38,32 srem 52933 
410 IF Y>0 THEN POKE SP-39,230sPOKE CP-39,CC srem 61570 

420 IF Z=0 THEN POKE SP+l,32sPOKE SP,78sPOKE CP,CCsIF X=0 THEN 

POKE SP,32 srem 20642 
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QUICK-D 


430 IP X=0 THEN POKE SP-40,32 srem 23101 

440 IP Z>0 THEN POKE SP+1,160:POKE CP+l,CC:POKE SP,233:POKE CP f CC :rem 255 

450 IP X>0 THEN P0KE SP-40,105:POKE CP-40,CC srem 23458 

470 DL=RA*Y+15:GOisUB 520:IF A$="Q" THEN RETURN srem 36726 

480 GOSUB 540 zteto 36056 

490 NEXT X,Z,Y item 62521 

500 DL=333sGOSUB ^20sIP A$= n Q" THEN RETURN srem 4253 
510 GOTO 180 srem 46437 

520 POR 1=1 TO DLlsGET A$sIF A$="Q" THEN RETURN srem 38487 

530 NEXT IsRETURN srem 1590 

540 POKE SID,INT(RND<1)*256) srem 53818 

550 POKE SID+4,129:FOR 1=1 TO SDsPOKE SID+4,128 srem 56420 
560 RETURN srem 13533 


52 lines, pro 


of number = 31277 


Important Variables in QUICK-D 


A$ Current key press 

CC Current color of br 

CP Current brick color 

CRT Base address of scr 

DE Rate that bricks are 


cks 

memory location 
gen memory 
stacked 


How QUICK-D Work* 


RA Rate that bricks are removed 

SC Pointer to base of brick screen memory locations 

SID Address of the SID chip 

SP Current brick screen memory location 

TC Pointer to base of brick color memory location 


100-140 

150-170 

180 


Initialize variables, sound, and screen color 
Call main program and then reset colors to 
default 

Initialize variables. Changing these 
variables will make the bricks stack faster 
or slower, etc. 


190-340 Stack bricks 

350-510 Unstack the bricks 

520-530 Delay routine 

540-560 Sound routine 



QUICK-E 


Bob Carr 


A (very patient) weaver sits at a loom and 
continually weaves new patterns in this 
clever graphic program. WEAVE uses 
Commodore character graphics creatively. Be 



especially careful when typing all the PRINT 
statements, since some of the sequences are 
rather long and complicated. 


1 REM QUICK-E — ROB CARR srem 256 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 31JUL84 

100 CRT=1024:HT=24:WD=40:CM=55296sTC=CM-CRT :rem 35417 

110 PRINT "(clr wht 15°down>" SPC(31) "/(* rvs-on *}" :rem 8618 

120 PRINT TAB(31) "{JI^K}" :rem 16023 

130 PRINT TAB(28) "(U)#(@i„(rvs-on £}„{*}" :rem 14874 

140 PRINT TAB (28) n {J* rvs-on} (N K (rvs-off >" :rem 63320 

150 PRINT TAB(29) "(rvs-on £ 3°T)„„(rvs-off}" :rem 47595 

160 PRINT TAB (28) "(rvs-on £ 5°space M>" :rem 3767 

170 PRINT TAB(28) "(rvs-on 2°+ -}^(M}" :rem 40450 

180 PRINT "(home 5°space 21°@^" :rem 4449 

190 PRINT "(4°space MM 19°space NG )" srem 28866 

20G PRINT "(4°space MK(0 17°T P}„(G}" :rem 63745 

210 PRINT "(4°space MK(GN 15°T MM}^(G>" srem 14711 

220 PRINT "(4°space M}„(2°G N 13°T M 2°M}„(G}" srem 23718 

230 PRINT "(4°space MK(3°G N 11°T M 3 °M}.a(G}" srem 11389 

240 PRINT "(4°space M}„(4°G N 9°T M 4°M)*(G)" srem 2681 

250 PRINT "(4°space M>^(5°G N 7°T M 5 0 M)^(G}" srem 40661 

260 PRINT "(4°space M>^(6°G N 5°T M 6°M}„(G}" srem 57697 

270 PRINT "(4°space M)^(7°G N 3°T M 7°M}„(G}" srem 49317 

280 PRINT "(4°space MK(8°G NTM 8°MK(G}" srem 6119 

290 PRINT "(4°space M)^(9°G}^(9°M)*(G)" srem 27713 

300 PRINT "(4°space M)^(8°G M@N 8°M}^(G>" srem 3143 

310 PRINT "(4°space MK(7°G M 3°@ N 7°M}„(G}" srem 62849 

320 PRINT "(4°space MK(6°G M 5°@ N 6°MK(G}" srem 41446 

330 PRINT "(4°space M}^(5°G M 7°@ N 5°MK(G}" srem 51472 

340 PRINT "(4°space M}„(4°G M 9°@ N 4°M}^(G}" srem 38121 

350 PRINT "(4°space M}^(3°G M 11°@ N 3°M}^(G}" srem 5662 

360 PRINT "(4°space M)„(2°G M 13°@ N 2°M}^(G}" srem 23393 

370 PRINT "(4°space MK(GM 15°@ NM}*(G}" srem 39482 

380 PRINT "(4°space M>„(L 17°@ @K(G}" srem 49451 

390 PRINT "(4°space MN 19°space MG>" srem 13493 

400 PRINT "(36°T}" srem 25690 

420 DIM PS(3),NG(3)sPS(l)=1$PS(2)=40sPS(3)=lsNG(l)=-l$NG(2)=-40s 
NG(3)=-1 srem 31201 

430 Y=CRT+17*WD+29sA=CRT+10*WD+14sSW=l srem 48474 
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QUICK-E 


11 


440 FOR X=1 TO 6:CfPEEK(Y)sPOKE Y,35 :rem 20662 

445 POKE TC+Y,1sPO&E Y,C:Y=Y-WD-1sNEXT srem 34647 

450 FOR X=7 TO 16sC=PEEK(Y)sPOKE Y,35 :rem 32963 

455 POKE TC+Y,IsPOKE Y,C:Y=Y-1:NEXT srem 42933 

460 FOR B=8 TO 64 STEP 8 srem 12919 

470 C s PEEK(A)sZ=B/4 srem 19328 

480 D=PS(SW)sGOSUB 560 srem 34426 

490 D=PS(3-SW)sGOSUB 560 srem 42968 

500 D=NG(SW)sGOSUB 560 srem 34611 

510 D=NG(3-SW):Z=Z-1sGOSUB 560 srem 5536 

520 POKE A,CsA=A-WD*(3-SW)-SWsSW=3-SW srem 37379 

530 GOSUB 570sNEXT B srem 7973 

540 Y=CRT+WD*17 +29 s POKE Y,35sPOKE Y-l,85sPOKE Y+WD-l,74s 
POKE Y+WD,64 srem 23373 

545 POKE TC+Y,1sPOKE TC+Y-1,1sPOKE TC+Y+WD-1,1sPOKE TC+Y+WD r l srem 8684 
550 FOR X=1 TO 300sGOSUB 570sNEXTsGOTO 430 srem 8697 
560 FOR X=1 TO Z$E=PEEK(A+D)sPOKE A,EsA=A+DsPOKE A f 35sNEXT Xs 
RETURN srem 2500 

570 GET Z$sIF Z$="Q" THEN PRINT "(clr blu}"sEND srem 25320 
580 RETURN srem 2766 

57 lines, proof number s 3803 


Important Variables in QUICK-E 


A 

Current position of weaving cursor 

PS() 

Weave direction 

B 

Weave loop variable 

S 

Color memory location of weaver's hand 

C 

Value PEEKed from screen 

sw 

Direction of weaving cursor movement 

E 

Character code of location plus direction of 
travel 

Y 

Starting location of weave cursor in weaver's 
hand 

HT 

Screen height 

Z 

Length of one side 

NG() 

Weave direction 

Z$ 

Check for Quit 


How QUICK-E Works 


100-410 Set constants, print loom and weaver 
420-430 Set up main program constants 
440-455 Flashes through the colors at the weaver’s 
hands 

460-530 Weave loop: select direction of weave, jump 
to routine that POKEs weave, check for 
Quit 


540-550 Restores “weave cursor" to weaver’s hand 

560 POKE weave routine 

570-580 Check for Quit 



QUICK-F 


Mike Howard 


H ere's another interesting little 
graphics demonstration that paints 
horizontally, then vertically, and so 
on until you press Q to quit. It has some interest¬ 
ing notions about which colors "cover” other 



colors. Also, instead of painting the screen in a 
totally random pattern, it calculates random 
displacements from the previous spot it was 
working. 


1 REM QUICK-F — MIKE HOWARD srem 256 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 27JUL84 

100 VIC=53248sSID=54272sCRT=1024sCM=55296 srem 19189 
110 POKE VIC+32,1sPOKE VIC+33,1sPRINT "{wht clr}" srem 38136 
120 PRINT "(clr)"sPOKE VIC+32,1sPOKE VIC+33,1 srem 41081 
130 DEF FND(X)=INT(RND(1)*(2*X+1))-X srem 17835 
140 DIM CV(40),CH(40),P(15) srem 46584 
150 MV=0sMH=0 srem 14347 
160 READ VsIF V<0 THEN 180 srem 13971 
170 MH=MH+1sCH(MH)=VsGOTO 160 srem 46784 
180 READ Vs IF V<0 THEN 220 srem 2186 
190 MV=MV+1sCV(MV)=VsGOTO 180 srem 17911 
200 DATA 6,2,7,14,8,3,13,-1 srem 50285 
210 DATA 2,4,5,12,7,10,15,-1 srem 407 
220 FOR Z=0 TO 15sREAD P(Z)sNEXT Z srem 40319 
230 DATA 0,0,1,4,5,5,3,4,6,0,4,2,3,4,6,5 srem 7389 
240 LR=5 sHR=10 sLL=4 sLH=13 sLD=l$RD=1$XD=3s YD=3sWL=4 sWH=8sDL=2 s 
DW=2 srem 12724 

250 RV=16 0sMX=39sMY=24 srem 20174 

260 D=2 srem 21891 

270 PV=lsPH=l srem 25728 

280 LX=INT(RND(1)*10)sLY=INT(RND(1)*6) srem 60186 

290 RP=INT(RND(1)*(HR-LR+1))+LR srem 41439 

300 BL=INT(RND(1)*(LH-LL+1))+LL srem 62078 

310 W=INT(RND(1)*(WH-WL+1))+WL srem 15698 

320 FOR U=1 TO RP srem 55478 

330 XB=LX*4sYB=LY*4 srem 58997 

340 ON D GOTO 350,470 srem 4813 

350 L=BLsCC=CH(PH)sPH=PH+l$IF PH>MH THEN PH=1 srem 31075 

360 FOR 1=1 TO WsY=YB srem 53115 

370 FOR X=XB TO XB+LsIF X>MX THEN 400 srem 30553 

380 GOSUB 700 srem 8503 

390 NEXT X srem 9031 

400 YB=YB+1sIF YB>MY THEN 460 srem 29578 
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410 Ml-0:M2-MX:DT=LD:T2=XB:GOSUB 730 srem 14493 
420 XB=T2 srem 39612 

430 Ml=LL:M2=LH;DT=RD:T2=LsGOSUB 730 :rem 50209 
440 L=T2 :rem 55336 
450 NEXT I srem 57950 
460 GOTO 600 srem 3075 

470 L=BLsCC=CV(PV)$PV=PV+lsIF PV>MV THEN PV=1 srem 16659 

480 IF W=1 THEN STOP :rem 49309 

490 FOR 1=1 TO W:X=XB srem 54355 

500 FOR Y=YB TO YB+LsIF Y>MY THEN 530 srem 31954 

510 GOSUB 700 srem 4455 

520 NEXT Y srem 11186 

530 XB=XB+1sIF XB>MX THEN 590 srem 10439 

540 Ml=0sM2=MYsDT=LDsT2=YBsGOSUB 730 srem 45940 

550 YB=T2 srem 20483 

560 Ml=LLsM2=LHsDT=RDsT2=LsGOSUB 730 srem 41164 
570 L=T2 srem 45352 
580 NEXT I srem 25347 
590 GOTO 600 srem 25859 

600 Ml=OsM2=9sDT=XDsT2=LXsGOSUB 730 srem 11642 
610 LX=T2 srem 35910 

620 M1=0sM2=5sDT=YDsT2 =LYsGOSUB 730 srem 11000 
630 LY=T2 srem 12843 

640 Ml=LLsN2=LHsDT=DLsT2 =BLsGOSUB 730 srem 14148 
650 BL=T2 srem 25041 

660 Ml=WLsM2 =WHsDT=DWsT2 =WsGOSUB 730 srem 30968 

670 W=T2 srem 20006 

680 NEXT U srem 14016 

690 D=3-DsGOTO 280 srem 13495 

700 GET Z$sIF Z$="Q" THEN 750 srem 19353 

710 P=Y*40+XsZ=PEEK(CM+P) AND 15sIF P(Z)>=P(CC) THEN RETURN srem 31968 
720 POKE CM+P,CCsPOKE CRT+P,RVsRETURN srem 42052 
730 AD=FND(DT)sT=T2+ADsIF T<M1 OR T>M2 THEN RETURN srem 30109 
740 T2=TsRETURN srem 34181 

750 POKE VIC+32,14sPOKE VIC+33,6SPRINT "{clr blu}"sEND srem 34102 
72 lines, proof number = 22170 


Important Variables in QUICK-F 

BL Basic length of color, area 

CC Color of brush 

CH() Horizontal colors 

CV() Vertical colors 

D Direction 

DL Change in length of brush strokes 
DW Change in thickness of color area 
HR Maximum color areas per cycle 

L Length of brush stroke 

LH Maximum length of a stroke 

LL Minimum length of a stroke 

LR Minimum number of areas per cycle 

LX Starting horizontal position 

LY Starting vertical position 

MX Maximum X-coordinate 


MY Maximum Y-coordinate 

P Position of brush 

P() Priority of each color for overlapping 

PH Pointer to horizontal color array 

PV Pointer to vertical color array 

RP Number of paint areas for a cycle 

W Width of current paint area 

WH Maximum thickness of a paint area 

WL Minimum thickness of a paint area 

X X-coordinate of brush 

XB Base X-coordinate of current paint area 

XD Change for X-axis 

Y Y-coordinate of brush 

YB Base Y-coordinate of current paint area 

YD Change for Y-axis movement 
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How QUICK-F Works 

100-140 Initialize variables, set screen and border 
colors 

150-230 Fill color and priority arrays 

240-270 Minimum ana maximum variables and 
values 

280-310 Compute base position, length, thickness, 
and quantity for a cycle 

320-340 Start a cycle, jump to correct code for paint 
direction 


350-460 Paints one area horizontally 

470-590 Paint one area vertically 

600-680 Change position, base length and thickness 
for next area 

690 End one cycle, toggle paint direction and 

begin new cycle 

700-720 Paint single block according to its priority 

730-740 Changes values by a random delta 

750 “Q” pressed, restore screen colors and end 




BLASTO 


Robert Noteboom 


H ere's a simple game that's lots of fun. 

The screen is filled with a forest of 
green trees, then it is seeded with a 
large number of mines, shown as blue number 
sign (#) characters. After the board is set up, 
your tank flashes, and there is a distinctive 
sound. Your goal is to destroy all the mines 
within two minutes, which isn't easy! Press the 
joystick button to fire your gun. When you hit a 

1 PG$="BLASTO" :AU$="ROBERT*NOTEBOOM" :BG$="JOYSTICK*.BUTTON " :rem 64198 
3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 
5 REM BOX 6905, SANTA BARBARA, CA 93160 
6 : 

10 REM AS OF 31JUL84 
90 GOTO 62000 :rem 51784 

100 POKE VIC+32,15;POKE VIC+33,15sAL=40:LS=1:TC=CM-CRT:DIM C(10)s 
HS=0 srem 25121 

110 POKE SID+5,100:POKE SID+6,100:POKE SID+2,0:POKE SID+3,8: 

POKE SID,0 :rero 43228 

120 POKE SID+1,0:POKE SID+4,65:POKE SID+24,15 :rem 31476 

130 DEF FNJ(X)=15-(PEEK(JS) AND 15):DEF FNB(X)=PEEK( JS) AND 16: 

DIM VZ(50) :rem 52015 

140 PRINT "{clr) n ;:SN=SID+1:POKE SN,0:AS=42:BU=46:BH=81:MN=35: 

WL=128 :rem 15298 
150 GH=CRT:BL=32:SC=0 :rem 5549 
160 Y=255:W=CRT+12*WD+30 :rem 38572 
170 FOR Z=1 TO 10:READ C(Z):NEXT Z :rem 52877 
180 DATA 4,3,0,2,2,3,0,1,4,1 :rem 20846 
190 D(1)=107:D(2)=115:D(3)=114:D(4)=113 :rem 34465 
200 GOSUB 630:TI$="000000" :rem 8585 

210 PRINT "(home rvs-on}*00:00":G0SUB 1000:A=6 :rem 11938 

220 IF HS>0 THEN PRINT "{home)TAB(29) "{rvs-onJHIGH:" HS :rem 49214 

230 JV=0:JB=16:GOTO 250 :rem 59548 

240 GOSUB 60500:JV=FNJ(0) :JB=FNB(0) :IF VOO THEN 490 :rem 3264 
250 IF TI>7200 THEN 920 :rem 3752 

260 Z$=TI$:PRINT "(home rvs-on) ;MID$ (Z$ ,3,2) ; ": RIGHT? (Z$,2) :rem 50291 

270 IF JV=0 AND JB=16 THEN 240 :rem 51677 

280 IF JB=0 THEN 400 :rem 32751 

290 A=JV :rem 7716 

300 IF A=B THEN 340 :rem 42904 

310 B=A:T=1 :rem 40153 

320 POKE W,D(C(A)):POKE TC+W,0 :rem 28225 
330 GOTO 560 :rem 49345 



mine, a “chain reaction" starts that blows up 
surrounding mines. If you are too close to a 
mine when you fire, your tank may blow up too, 
ending the game. If you are able to score over 
3,000 points within the time limit you join the 
ranks of world-class BLASTO experts. 

Note: BLASTO uses a joystick. 
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340 POKE W, BL sPOKE SN,YsPOKE SN,0 :rem 20881 

350 ON C(A) GOTO 360,370,380 f 390 srem 13046 

360 WW=W+l:GOTO 590 :rero 29411 

370 WW=W-1sGOTO 590 :rem 36786 

380 WW=W+WD sGOTO 590 :rem 34644 

390 WW=W-WD:GOTO 590 :rem 61863 

400 ON C(B) GOTO 410,420,430,440 :rem 56155 

410 Z=1:GOTO 450 srem 53213 

420 Z=-l:GOTO 450 srem 54786 

430 Z=WD:GOTO 450 srem 29655 

440 Z=-WDsGOTO 450 srem 13514 

450 V=W+Z sIF PEEK(V)>WL THEN V=0sPOKE SN,OsGOTO 240 srem 23152 
460 IF PEEK(V)=BL THEN POKE V,BUsPOKE TC+V,11sSS=50sGOTO 240 srem 14364 
470 IF PEEK(V)=MN THEN W=V$I=0 $J=0 sGOSUB 770sSC=SC+30sGOTO 240 srem 16077 
480 W=Vs 1=0 sJ=0sGOSUB 870sGOTO 240 srem 65392 
490 W=V+Z :H=PEEK (W) s IF H>WL THEN POKE V, BLsV=0 sPOKE SN,0s 
GOTO 270 srem 53140 

500 IF H=MN THEN GOSUB 770sGOTO 240 srem 56169 
510 IF HOBL THEN 520 srem 1593 

515 POKE V, BLsPOKE W,BUsPOKE TC+W, 11 sSS=SS+2 s POKE SN,SSsV=Ws 
GOTO 240 srem 51495 

520 POKE V,BLsPOKE W,ASsFOR 1=150 TO 200 STEP 2sPOKE SN,IsNEXTs 
POKE W,BLsV=0 srem 14132 

530 POKE SN,0sGOSUB 540sGOSUB lOOOsGOTO 240 srem 25928 

540 SC=SC+10sSS=0 srem 21396 

550 RETURN srem 17962 

560 IF TOl THEN 240 srem 65171 

570 FOR 1=1 TO lOOsNEXT srem 48714 

580 T=0sGOTO 560 srem 23197 

590 IF PEEK(WW)=BL THEN 620 srem 44798 

600 IF PEEK (WW) OMN THEN 320 srem 33359 

610 W=WWsW=W$I=0sJ=0sPOKE W,D(C (A)) sGOTO 830 srem 48866 
620 W=WWsGOTO 320 srem 32824 

630 FOR 1=1 TO 40sPRINT "{ cyn rvs-on)*{rvs-offsNEXT srem 42665 

640 FOR 1=1 TO 23sPRINT "{rvs-on left down} A (rvs—offsNEXT srem 32382 

650 FOR 1=1 TO 39$PRINT "{rvs-on left}*{rvs-off left}";sNEXT srem 54560 

660 FOR 1=1 TO 25sPRINT "(rvs-on left}*(up rvs-offsNEXT srem 54802 

670 FOR 1=1 TO 500sH=CRT+INT(RND(1)*24)*WD+INT(RND(1)*40) srem 3911 
680 IF PEEK(H)=BL THEN POKE TC+H,5sPOKE H,81 srem 44270 
690 NEXTsPOKE SN,0 srem 6329 
700 FOR 1=1 TO 50 srem 22608 

710 H=CRT+INT(RND(10) *24) *WD+RND(1) *40 srem 43838 

720 IF PEEK{H) 0160 THEN POKE TC+H,6sPOKE H,35sGOTO 740 srem 37020 

730 GOTO 710 srem 30796 

740 POKE SN,250-5*1sNEXTsPOKE SN,0sPOKE TC+W,0 srem 13459 
745 FOR 1=1 TO 5sPOKE W,235sPOKE SN,255 srem 25443 

750 FOR J=1 TO 200sNEXTsPOKE SN,0sPOKE W,107sPOKE SN,255 srem 31180 

760 FOR J=1 TO 200 sNEXT sPOKE SN,0sNEXTsRETURN srem 27768 

770 SC=SC+30sPOKE V,BLsI=0sJ=0sGOSUB 870 srem 47764 

780 FOR I=-LS TO LSsFOR J=-WD TO WD STEP WD srem 11933 

790 IF PEEK(W+I+J) >WL THEN 840 srem 63078 

800 IF PEEK(W+I+J) =MN THEN VZ (K) =W+I+JsK=K+l sGOSUB 870sNEXT J,Is 
GOTO 850 srem 59801 

810 IF PEEK(W+I+J) =BH THEN GOSUB 870sGOTO 840 srem 23897 
820 IF PEEK(W+I+J) =BL THEN 840 srem 41616 

830 GOSUB 870sGOSUB 870sGOSUB 1010sSC=SC-20sGOTO 890 srem 25358 
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840 NEXT J,I :rem 2610 

850 GOSUB lOOOsIF K=0 THEN RETURN :rem 23162 
860 SC=SC+30sK=K-lsW=VZ(K) sGOTO 780 srem 19745 

870 POKE W+1+J,AS:POKE TC+W+I+J, 2 :FOR F=200 TO 150 STEP -3:POKE SN,Fs 
NEXT :rem 30576 

880 POKE SN, 0 sPOKE W+I+J, BLsV=0 sGOSUB 540:RETURN :rem 19073 

890 PRINT "{clr 10°down 5°right}ANOTHER <s TANK„BITES^THE A DUST... " :rem 43211 

900 FOR 1=255 TO 10 STEP -,5:POKE SN,I:NEXT :rem 60744 

910 POKE SN,0 srem 21979 

920 PRINT "{clr ll°down}" srem 60440 

930 PRINT TAB(14) "SCOREs";SCsIF SC>HS THEN HS=SC srem 25810 
940 PRINT TAB(12) "(down)HIGH*SCOREs";HS srem 51541 
950 JB=FNB(0)sIF JB=0 THEN 950 srem 5054 

960 PRINT "{5°downJ "; sPR$=" {9°space)ANOTHER a GAME? a/ vYES/.NO" s 
JC$="t cyn wht)" srem 33430 
970 IN=1sJM=2sJT=24sJW=4sGOSUB 60200 srem 64529 
980 IF IN=1 THEN RESTOREsGOTO 140 srem 18892 
990 GOTO 60600 srem 61631 

1000 PRINT "{home rvs-on 15°right)SCOREs" SCsRETURN srem 30725 

1010 FOR 1=1 TO 50sPOKE VIC+24,23sPOKE VIC+24,21sNEXTsRETURN srem 9841 

150 lines, proof number = 20994 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in BLASTO 

A Current joystick direction 

AS Screen POKE value of an explosion 
B Last joystick direction 

BH Screen POKE value of a tree 

BL Screen POKE value of a blank space 
BU Screen POKE value of bullet 

C() Tank movement directions for each position 
D() Screen POKE values for different positions of 
tank 

HS Current high score 

JB Current value of joystick button 

JV Current joystick value 


LS Range of explosion around mines 
MN Screen POKE value of a mine 
SC Current score 

SN Address of SID register 1 sound pitch value 
SS Current pitch value of sound when bullet is 
moving 

T Flag for delay 

TC Color memory pointer 

V Current screen position of bullet 

VZ() Temporary locations of mines 

W Screen location of tank 

Y Pitch value of sound for tank movement 


How BLASTO Works 



100-190 

200-230 

240-390 

400-530 

540-550 

560-580 

590-620 

630-740 

Initialize variables and arrays 

Reset time and score 

Display time, read joystick and move 

Fire bullet and determine if anything is hit 
Add points for a bush 

Delay routine 

See if tank hits anything when moved 

Display playing field and randomly 
position bushes and mines 

750-760 

770-860 

870-880 

890-990 

1000 

1010 

Blink starting position of tank 

Explode a mine and check for any chain 
reaction 

Sound and graphics for an explosion 
Display high score and ask for another 
game 

Print score 

Blink screen when tank dies 





Craig Eisler 


I n ZIP, you control a strange robot trapped 
inside a blue-walled maze. The robot is 
armed with a powerful laser weapon. 
When the robot hits a wall, it bounces off with¬ 
out any damage. The green mines will destroy 
the robot if you let it run into one. The object of 
the game is to wipe out the red targets which 
are worth 50 points each. Although you don’t 
win any points for shooting mines, getting rid 
of them helps, since it clears your path. 

The joystick controls the direction of the 
robot, and the joystick button fires the laser. 
Now and then you'll see a question mark, which 
represents a mystery object. When you fire at a 
question mark, any one of several events may 
occur. If you are lucky, you will get 50 or 100 



extra points. Or you may go into hyperspace, 
and find your robot transported to another lo¬ 
cation. Sometimes a field of mines will appear 
when you fire at a question mark. However, if 
you do not fire at the question mark and just 
run over it, the mystery object will disappear. 

This game has three skill levels, which con¬ 
trol the rate that objects appear on the screen. 
At the easiest level, you'll be able to play for 
several minutes after you get the feel of the 
game, while the hardest skill level is quite dif¬ 
ficult due to the large number of objects you 
must avoid or destroy. 

Note: ZIP requires a joystick, and uses sound. 


1 PG$="ZIP"sAU$="CRAIG^EISLER"sBG$="JOYSTICK^BUTTON" srem 28806 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 31JUL84 
90 GOTO 62000 :rem 51784 
100 HS=0:GOSUB 1290:TC=CM-CRT srem 44152 
110 FOR Z=SID TO SID+24:POKE Z,0:NEXT Z srem 41820 
120 POKE SID+24,15 srem 12028 
130 POKE SID+2,0sPOKE SID+3,8 srem 49764 
140 POKE SID+5,72sPOKE SID+6,68 srem 34795 
150 POKE SID+7,0sPOKE SID+8,2 srem 60668 
160 POKE SID+12,20sPOKE SID+13,13*16+5 srem 33219 
170 POKE SID+14,0sPOKE SID+15,19 srem 40908 
180 POKE SID+19,8sPOKE SID+20,8 srem 4902 
190 Wl=32sW2=160sW3=87sW4=42sW5=63sWT=25*WD srem 60478 
200 C2=6sC3=10sC4=13sC5=14 srem 41121 
210 UL=CRT+2*WD+lsLR=CRT+WT-WD-2 srem 31578 
220 DIM P(10),C(10),H(10),U(10)sAS=1000 srem 47117 

230 DEF FNA(X)=CRT+(INT(RND(1) *22) +2) *40 + (INT(RND(1) *38) +1) srem 49398 
240 U(l)=30sU(2)=22sU(4)=60sU(10)=122sU(5)=79 srem 48808 
250 U(6)=76sU(8)=62sU(9) =80sU(0) =81 sPRINT "(clr)" srem 41897 
260 C (1) =-WDsC (2) =WDsC (4) =-lsC(5) =-WD-l :C (6) =WD-lsC(8) =lsC(9) =-WD+l s 
C(10)=WD+1 srem 22054 

270 P(l)=86sP(2)=91sP(3)=77sP(4)=7 8sP(5)=90 srem 6209 
280 H(l) =93sH(2) =93sH(4) =67sH(5)=77sH(6)=78sH(8)=67sH(9)=78s 
H(10)=77 srem 59755 
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290 P(6)=35sP(7)=81:P(8)=87sP(9)=65sP(10)=42 :rem 27922 
300 POKE VIC+24,21 srem 37649 
310 PRINT "{clr}" srem 2353 

320 PR$="SELECT*SKILL A LEVEL : * a EASY a MEDIU.M*HARD" : JM=3 s IN=1:JT=19: 

JW=7 :rem 57617 

330 GOSUB 60200 sSK=60*(4-IN)-25 srem 55651 
340 SC=0sQ$="(home 24°right>?s" srem 11009 
350 POKE VIC+32,12 srem 3215 
360 POKE VIC+24,31 srem 19774 
370 Z=PEEK(VIC+17)sPOKE VIC+17,0 srem 17997 

380 POKE VIC+33,6SPRINT "(blu)SPRINT "{clr wht)" srem 40108 
390 POKE VIC+33,0 sPOKE VIC+17,Z srem 24013 

400 FOR T=CRT+WD TO CRT+WT-1 STEP WDsPOKE T,W2sPOKE T+39,W2s 
NEXT srem 37506 

410 V=INT(RND(1) *6) +4 srem 37932 

420 FOR T=1 TO VsPOKE CRT+T*WD+10,W2sNEXT T srem 60089 
430 FOR T=0 TO lOsPOKE CRT+V*WD+T,W2sNEXT T srem 19740 
440 POKE CRT+V*WD+INT(RND(1)*9)+l,Wl srem 43606 
450 H = INT(RND(1)*7)+23 srem 65499 

460 FOR T=1 TO 24sPOKE CRT+T*WD+H,W2sNEXT T srem 47454 
470 Z=INT(RND(1)*22+2)sPOKE CRT+WD*Z+H,Wl srem 65147 
480 V=INT(KND(l)*10+V+2)sIF V=Z THEN 480 srem 6501 
490 G=1sFOR T=1 TO H-l srem 50286 
500 Z=CRT+WD*V+T srem 34615 

510 POKE Z f W2sIF RND(1)<.1 THEN POKE Z,WlsG=0 srem 42205 

520 NEXT TsIF G THEN POKE CRT+V*WD+INT(RND(1)*(H-l)+1),Wl srem 19240 

530 FOR T»0 TO 39sPOKE CRT+WD+T,W2sPOKE CRT+WT-WD+T,W2sNEXT T srem 54285 

540 FOR T=1 TO INT(20*RND(1))sZ=FNA(T) srem 57845 

550 G=PEEK(Z)sIF G<>32 THEN 580 srem 10933 

560 G=W4:ZC=C4sIF RND(1)>.5 THEN G=W3sZC=C3 srem 46834 

570 POKE Z, G sPOKE TC+Z,ZC srem 63807 

580 NEXT T srem 25374 

590 TI$="000000" srem 1349 

595 X=0 s U-81s P=UL sPOKE SID+l,0sPOKE SID+4,65sPOKE P,U(0) srem 17962 
600 FOR Z=240 TO 0 STEP -3sPOKE SID+1,ZsPOKE TC+P,Z/16sNEXT srem 31811 
605 POKE SID+4f0sPOKE TC+P,7 srem 60446 

610 Y$=TI$SPRINT "{home>TIME <s ";MID$ (Y$ r 3 ,2) ; " s ";MID$ (Y$,5) ; "^SCORE";SC 
srem 10106 

620 GOSUB 60500 srem 53392 
630 Z s PEEK(JS)sA=15-(Z AND 15) srem 3623 
640 IF AOO THEN X=C(A) sA5=AsU=U(A5) sPOKE P,U srem 52445 
650 IF (Z AND 16) =0 AND XOO THEN 710 srem 58667 
660 P=P+XsZ=PEEK(P)sIF Z=W2 THEN P=P-XsX=-XsGOSUB 1090sPOKE P,Us 
GOTO 690 srem 34309 

670 POKE P-X f WlsIF Z=W4 OR Z=W3 THEN ZZ=1sJ=PsGOTO 930 srem 45772 
680 POKE PfUsPOKE TC+P,7 srem 28954 
690 Z=INT(RND(1) *SK)+1 srem 25161 

700 ON Z GOTO 1010,1020,1070,1070,1030,1030,1030,1040,1040,1040s 
GOTO 610 srem 34946 

710 SP=75sFOR J=P+X TO P+X*ll STEP X srem 62891 

720 Z s PEEK(J) sIF ZOWl THEN POKE SID+4,OsGOTO 790 srem 25949 

730 POKE J,H(A5)sPOKE TC+J,14 srem 64520 

740 POKE SID,0sPOKE SID+1,SPsPOKE SID+4,65 srem 58847 

750 FOR Z = 1 TO 4sNEXT Z srem 54246 

760 POKE SID+4,64sSP=SP-8sIF SP<0 THEN SP=0 srem 28780 
770 NEXT J srem 54347 
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780 GOSUB 980:POKE SID+l,OsPOKE SID+4,OsGOTO 610 :rem 21182 
790 IF Z=W2 THEN J=J-XsGOSUB 980:GOTO 610 :rem 6395 
800 IF Z=W3 THEN SC=SC+50sGOSUB 980sGOTO 930 :rem 9129 
810 IF Z=W4 THEN GOSUB 980:GOTO 930 srem 51851 
820 IF ZOW5 THEN 780 srem 24080 

830 ON INT(KND(1)*5+1) GOTO 840,850,860,880,890 srem 60171 
840 SC=SC+100SPRINT Q$;"GOT A 100^POINTS"sGOSUB 980sGOTO 930 srem 45362 
850 SC=SC-10SPRINT Q$;"HYPERSPACE(4°space}°sGOSUB 980sGOTO 1640 srem 7396 
860 PRINT Q$; "NEW/»WALL{6°space}" sGOSUB 980sGOSUB 1670 srem 53074 
870 POKE P,UsPOKE TC+P,7sGOTO 610 srem 50542 

880 SC=SC+50SPRINT Q$; "GOT*50.POINTS*"sGOSUB 980sGOTO 1600 srem 14074 
890 GOSUB 980sSC=SC-30sPRINT Q$;"STAR a FIELD{ 4°space}" srem 44717 
900 FOR G=1 TO 9s Z- J+C(G) sIF PEEK(Z)OW2 THEN POKE Z,W4s 
POKE TC+Z,C4 srem 13582 

910 NEXT GsIF PEEK(P)OU THEN ZZ=1sSC=SC-40sGOTO 930 srem 63532 
920 GOTO 610 srem 56489 

930 POKE SID+11,129SPOKE SID+7,INT(RND(1)*256) srem 651 
940 FOR Y=1 TO 10+(ZZ*15)sFOR Yl=l TO 5sPOKE J,P(Yl)sNEXT Yl,Ys 
POKE J,W1 srem 61239 
950 POKE SID+11,128 srem 24946 
960 IF ZZ THEN 1190 srem 39863 
970 GOSUB 980sGOTO 610 srem 2032 
980 FOR Z=P+X TO J STEP XsX2=PEEK(Z) srem 23324 
990 IF X2=W2 OR X2=W4 OR X2=W3 THEN Z=0sRETURN srem 31918 
1000 POKE Z,WlsNEXT ZsZ=0sRETURN srem 11935 
1010 Z=W2sZC=C2sGOTO 1050 srem 17915 
1020 Z=W5sZC=C5sGC=FRE(0)sGOTO 1050 srem 33311 
1030 Z=W4sZC=C4sGOTO 1050 srem 24712 
1040 Z=W3sZC=C3 srem 56167 

1050 C=FNA(A) s IF PEEK(C)OWl THEN 1050 srem 34652 

1060 POKE C,Z sPOKE TC+C,ZCsGOTO 610 srem 19568 

1070 C=FNA(A)sIF C>UL AND PEEK(C)=W2 THEN POKE C,Wl srem 20273 

1080 GOTO 610 srem 45903 

1090 POKE SID+18,33sPOKE SID+18,32 srem 59908 
1100 IF U=22 THEN U=30sRETURN srem 7987 
1110 IF U=30 THEN U=22sRETURN srem 5491 
1120 IF U=60 THEN U=62sRETURN srem 62174 
1130 IF U=62 THEN U=60sRETURN srem 17566 
1140 IF U=76 THEN U=80:RETURN srem 65175 
1150 IF U=80 THEN U=76:RETURN srem 37925 
1160 IF U=122 THEN U=79sRETURN srem 49361 
1170 IF U=79 THEN U=122sRETURN srem 37694 
1180 RETURN srem 18107 

1190 NG=NG+1sIF SC>HS THEN HS=SC srem 3285 
1200 POKE VIC+24,21 srem 29441 

1210 PRINT n {clr 2“down yel)YOUR^SCOREs *";RIGHT$("(5°space)"+STR$(SC),6) 
srem 9072 

1220 PRINT "(down grnJHIGH^SCOREs^";RIGHT$("(5°space)"+STR$(HS),6) 
srem 49066 

1230 PRINT "{down gur)GAMES A PLAYEDs;RIGHT$("***"+STR$(NG),4) srem 40650 
1240 PRINT "{2°down}" srem 27168 

1250 PR$="PLAY a AGAIN? <n YES*NO" s JM=2 s JT=12 s JW=4 s IN=1 sGOSUB 60200 srem 8558 

1260 IF IN s 2 THEN 60600 srem 21922 

1270 ZZ=0sGOTO 340 srem 31219 

1290 PRINT "{clr whtJSETTING^UP..." srem 1567 

1300 B-49152s1=0 srem 34879 
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1310 READ VsIF V=-l THEN 1330 :rem 1412 
1320 POKE B+I,Vs 1=1+1sGOTO 1310 srem 28643 
1330 SYS 49152 :rem 22134 
1340 B=14336 srem 3959 

1350 READ PsIF P=-l THEN 1390 srem 39456 
1360 B2=B+P*8 srem 28914 

1370 FOR Z=0 TO 7sREAD VsPOKE B2+Z,VsNEXT Z srem 15875 
1380 GOTO 1350 srem 36080 
1390 RETURN srem 35046 

1400 DATA 120,165,1,41,251,133,lrl69 f 0 r 133,251,133,253,169,56 srem 5460 

1410 DATA 133,252,169,208,133,254,162,8,160,0,177,253,145,251 srem 7954 

1420 DATA 200,208,249,230,252,230,254,202,208,240,165,1,9,4 srem 62871 

1430 DATA 133,1,88,96,-1 srem 46729 

1440 DATA 22,0,152,123,63,75,136,24,8 srem 20864 

1450 DATA 30,8,24,136,75,63,123,152,0 srem 65429 

1460 DATA 42,36,24,60,255,60,24,36,0 srem 24212 

1470 DATA 60,28,28,8,254,78,12,20,34 srem 32676 

1480 DATA 62,56,56,16,127,114,48,40,68 srem 47950 

1490 DATA 67,0,0,0,255,0,0,0,0 srem 27572 

1500 DATA 76,96,228,254,28,40,79,136,8 srem 51111 

1510 DATA 77,64,96,48,24,12,6,3,1 srem 42991 

1520 DATA 78,3,6,12,24,48,96,192,128 srem 43046 

1530 DATA 79,70,39,23,12,252,46,36,32 srem 20969 

1540 DATA 80,98,228,232,48,63,116,36,4 srem 11391 

1550 DATA 81,56,56,16,254,186,16,40,68 srem 12695 

1560 DATA 87,129,66,36,126,255,153,126,60 srem 4132 

1570 DATA 93,24,24,24,24,24,24,24,24 srem 26961 

1580 DATA 122,6,39,127,56,20,242,17,16 srem 55988 

1590 DATA -1 srem 20857 

1600 FOR G=1 TO 9sIF PEEK(J+C(G))=U OR PEEK(J+C(G))=W2 THEN 1630 srem 21334 

1610 IF J+C(G)<UL OR J+C(G)>LR THEN 1630 srem 47932 

1620 POKE J+C(G),W1 srem 33855 

1630 NEXT GsGOTO 610 srem 51421 

1640 POKE J,W1 srem 37145 

1650 C=FNA(X) sIF PEEK(C)OWl THEN 1650 srem 31280 

1660 A=0sX=0sU=81SPOKE P,WlsPOKE C,UsP=CsGOTO 610 srem 21428 

1670 DD=1sXX=INT(RND(1)*2+1) srem 61494 

1680 IF XX=2 THEN XX=WD srem 39899 

1690 FOR TP=J TO CR STEP -XX srem 17068 

1700 IF RND(l)>.5 AND DD THEN DD=0sPOKE TP,WlsGOTO 1730 srem 6001 
1710 IF PEEK(TP)=W2 THEN 1740 srem 44795 
1720 POKE TP,W2sPOKE TP+TC,C2 srem 46726 
1730 NEXT TP srem 1963 

1740 FOR TP=J+XX TO LR STEP XX srem 109 

1750 IF PEEK(TP)=W2 THEN RETURN srem 51642 

1760 POKE TP,W2sPOKE TP+TC,C2sNEXT TPsRETURN srem 7391 

224 lines, proof number = 13406 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 
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Important Variables in ZIP 

A Joystick value and argument in FNA(A) call 
A5 Holds value of joystick temporarily 
B Address of machine language to copy character 
set for programmable characters 
B2 Base address of programmed character POKEd 
into memory 

C Hold value of FNA(X) call 

C() Values for direction of movement 

DD Flag used in creating new walls 

H Random value in creating walls 

H() Screen POKEs for laser shots 

HS Current high score 

J Current screen position of the laser shot 

LR Lower-right screen address of playing field 

P Player's position on the screen 

P() Screen POKE values for explosion 

SK Skill level 


SP Pitch of sound when a shot is fired 
TC Color memory pointer 

TP Loop variable ror creating new walls 

U Current POKE value for player's symbol 
U() Screen POKE values for player symbol 
UL Screen address of top-left corner of playing 
screen 

W1 Screen POKE value of a space 
W2 POKE value for walls 

W3 POKE value for pods 

W4 POKE value for mines 

W5 POKE value for question mark 

WT End address of screen memory 

X Current direction of player's movement 
XX Random value in creating new walls 
Y$ Used to print amount of time left 
ZZ Flag if player has been killed 


How ZIP Works 


100-290 Initialize variables, functions, and sound 
300-340 Select skill level 

350-580 Set up playing field 

590-605 Set position of player, resets timer and 
score 

610-680 Main game loop: update timer and score, 
reads joystick and moves player while 
detecting collisions 
690-700 Add new object on screen 

710-780 Fire laser 


790-920 

930-970 

980-1000 

1010-1080 

1090-1180 

1190-1270 

1290-1590 

1600-1760 


Add points to score if the laser hits an 

object 

Explosion 

Erase laser shot 

Put new object on screen 

Reverse direction when player hits a wall 

End of game screen 

DATA for programmable characters and 
machine language routine 
Hyperspace and new walls after hitting a 
question mark 




AMBUSH 

Phil Bayman 


T his is a game of strategy in which two 
generals try to outmaneuver their op¬ 
ponents. The object is to isolate your 
opposing general by destroying the forest 
around him, or by blocking him from moving. 
Each general first moves (one block at a time) 
using the joystick and pressing the joystick but¬ 
ton when in the desired square. Next, use the 
joystick to move to the square you want to 
bomb, which can be any square that is directly 



in line with your position, including on the di¬ 
agonal. (However, the rules of engagement do 
not allow you to bomb your opponent directly.) 
Turns alternate back and forth, with victory 
going to whichever general first isolates the 
other. 

Note: AMBUSH requires a joystick, and uses 
sound. 


1 PG$="AMBUSH ": AU$="PHIL,»BAYMAN ":BG§="JOYSTICK^BUTTON " :rem 20111 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 s 

10 REM AS OF 25JUL84 
90 GOTO 62000 srem 51784 
100 R$="(home 20°down}" srem 40855 

120 POKE SID+24,15:POKE SID+5,60:POKE SID+6,60:POKE SID,35: 

POKE SID+1,3 srem 31645 

130 POKE SID+9,0:POKE SID+10,8:POKE SID+12,37:P0KE SID+13,53 :rem 48514 
140 DIM BX(6,8)SPRINT ”{clr>" srem 5215 
150 GOSUB 1150 srem 47074 

160 T(l)=8:T(2)=17:1$(1)="(red)": 1$ (2) = "IbluJ" srem 6834 
170 NA$(1)="RED^ARMY":NA$(2)="BLUE^ARMY" srem 20935 
180 BL$="{39°space)" srem 54893 

190 FOR R=0 TO 6:FOR C=1 TO 7:BX(R,C)=0sNEXT C:BX(R,0)=-l:BX(R,8)=-l: 
NEXT R srem 19508 

200 FOR C=0 TO 8sBX(0,0=-lsBX(6,C)=-lsNEXT C srem 17167 

210 PRINT "telr)":FOR VP=1 TO 5:FOR 1=1 TO 7:HP=I:GOSUB 630:NEXT: 

NEXT srem 47118 

220 CD=4:FOR 1=1 TO 2:RD=1:IF 1=2 THEN RD=5 srem 40643 

230 R(I)=0:C(I)=0:GOSUB 700 srem 38006 

240 NEXT I srem 37256 

250 I=INT(RND(1) *2) +1 srem 61998 

260 PRINT "(yel home 3°down 39°*)" srem 12453 

270 BX(0,0)=-lSPRINT "{home)";BL$ srem 22446 

280 PRINT " (home) ; I $ (I) ;NA$ (I);":" srem 41610 

290 PRINT "{home 2°down}" BL$ srem 39072 

300 PRINT "tup) A ^.SELECT^NEXT^CAMP. " sGOSUB 740 srem 4592 

310 POKE SID+4,0 srem 30631 

320 POKE SID+8,T(I) SPOKE SID+11,65sGOSUB 470:POKE SID+11,64 srem 13813 
330 PRINT "{home 2°down}";BL$SPRINT "{up)^^SELECT^BOMB^TARGET.": 

GOSUB 920 srem 12215 
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340 BX(RD,CD)=-l:VP=RD:HP=CD:GOSUB 670 :rem 60562 

350 POKE SID+4,129sFOR DE=1 TO 45 jNEXT DEsPOKE SID+4,128 :rem 62313 
360 GOSUB 540:IF F>0 THEN 390 srein 1250 
370 GOSUB 540:IF F>0 THEN 390 :rem 37834 
380 1=3-1:GOTO 260 :rem 55243 

390 PRINT "{home}" BL$:PRINT BL$:PRINT BL$ :rem 23537 
400 IF F=3 THEN 430 :rem 62073 

410 PRINT I$(3-F); "{home} AA VICTORY„FOR A THE„" NA$(3-F) "111" :rem 42479 
420 PRINT "{downK A THE A " NA$(F);" A ISaTRAPPEDI11"jGOSUB 610:GOSUB 490: 

GOTO 440 :rem 27614 

430 PRINT "(home yel> aa BOTH a GENERALS a HAVE a BEEN^TRAPPED!": 

GOSUB 610 :rem 26690 

440 PRINT "{home 2°down}";BL$; "{up}":PR$=" aa WANT a TO a PLAY a AGAIN? a YES a NO": 
JT=22:IN=1:JW=4 :rem 10416 

450 JC$="{grn wht)":JM=2:GOSUB 60200:IF IN=2 THEN 60600 :rem 43864 

460 POKE VIC+21,0:GOTO 190 :rem 10436 

470 FOR KT=1 TO 100:NEXT:RETURN :rem 8472 

480 FOR KT=1 TO 600:NEXT:RETURN :rem 62075 

490 FOR KT=1 TO 1000:NEXT:RETURN :rem 41869 

500 FOR KT=1 TO 3000:NEXT:RETURN :rem 3638 

540 F=0:FOR 11=1 TO 2:SU=0 :rem 48497 

550 FOR R=R(II)-1 TO R(II)+1 :rem 34549 

560 FOR C=C(II)-1 TO C(II)+1 :rem 26948 

570 SU=SU-(BX(R,C)<>0) :rem 52982 

580 NEXT C,R :rem 58114 

590 F=F-(SU=9)*11:NEXT II :rem 26131 

600 RETURN :rem 55667 

610 POKE SID+11 f 65:FOR KT=1 TO 10:FOR Q=50 TO 150 STEP 3 :rem 3628 
620 POKE SID+8,Q:NEXT:POKE SID+8,0:NEXT:POKE SID+11,0:RETURN :rem 50846 
630 Z=7*VP+HP-7:GOSUB 690 :rem 6819 
640 PRINT TAB(HP);"{grn 5°X}" :rem 40349 

650 FOR Z=1 TO 2:PRINT TAB(HP);"{X}_{X}":NEXT :rem 18227 

660 PRINT TAB(HP);"{grn 5°X}":RETURN :rem 42485 

670 GOSUB 690:FOR Z=1 TO 4:PRINT TAB(HP);"{cyn 5"space)":NEXT: 

RETURN :rem 40361 

680 PRINT TAB(HP);"{cyn 5 0 space)" :rem 15767 

690 HP=5*HP-3:PRINT LEFT?(R$,4*VP+1);:RETURN :rem 36490 

700 BX(R(I),C(I))=0 :rem 62432 

710 R(I)=RD:C(I)=CD:BX(RD,CD)=1 :rem 19156 

720 VP=RD:HP=CD:SN=I+2:GOSUB 1090 :rem 32731 

730 RETURN :rem 26809 

740 RD=R(I):CD=C(I):Z=PEEK(VIC+41+I):POKE VIC+41+I,Z AND 7 :rem 32316 
750 POKE VIC+41 ,Z :ZT=TI+25:GOTO 870 :rem 39669 

760 GOSUB 60500:IF (PEEK(JS) AND 16)=0 AND BX(RD,CD)=0 THEN 890 :rem 31319 

770 JD=15-(PEEK(JS) AND 15):IF JDOO THEN 790 :rem 42448 

780 IF TI<ZT THEN 760 :rem 17320 

790 VP=RD:HP=CD :rem 17356 

800 IF JD AND 1 THEN VP=VP-1 :rem 41380 

810 IF JD AND 2 THEN VP=VP+1 :rem 63930 

820 IF JD AND 4 THEN HP=HP-1 :rem 8340 

830 IF JD AND 8 THEN HP=HP+1 :rem 62051 

840 IF VP<1 OR VP>5 OR HP<1 OR HP>7 THEN 870 :rem 40516 

850 IF ABS(VP-R(I))>1 OR ABS(HP-C(I))>1 THEN 870 :rem 63831 

860 RD=VP:CD=HP:POKE VIC+21,PEEK(VIC+21) AND 26 :rem 16094 

870 XX=-(BX(RD,CD)=0):VP=RD:HP=CD:SN=2:GOSUB 1090 :rem 47791 

880 GOTO 760 :rem 51873 
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890 GOSUB 700 sPOKE VIC+41+I,PEEK(VIC+41+I) OR 8 :rem 6852 
900 POKE VIC+21 f PEEK(VIC+21) AND 26 srem 64657 
910 RETURN :rem 29640 

920 RD=R(I)$CD=C(I):POKE VIC+40 f PEEK(VIC+41+I) :rem 2705 
930 ZT=TI+25sGOTO 1040 :rera 33893 

940 GOSUB 60500:IF (PEEK(JS) AND 16)=0 AND XX THEN 1080 :rem 62486 
950 JD=15-(PEEK(JS) AND 15):IF JDOO THEN 970 :rem 50959 
960 IP TI<ZT THEN 940 :rem 53558 
970 VP=RDsHP=CD srem 10311 
980 IF JD AND 1 THEN VP=VP-1 :rem 28837 

990 IF JD AND 2 THEN VP=VP+1 :rem 10427 

1000 IF JD AND 4 THEN HP=HP-1 srem 55207 

1010 IF JD AND 8 THEN HP=HP+1 srem 5092 

1020 IF VP<1 OR VP>5 OR HP<1 OR HP>7 THEN 1040 srem 7333 
1030 RD=VPsCD=HP srem 7058 

1040 XX=0sVP=ABS(RD-R(I))sHP=ABS(CD-C(I) ) srem 45784 

1050 IF (VP=0 OR HP=0 OR VP=HP) AND BX(RD,CD)=0 THEN XX=1 srem 23543 

1060 VP=RDsHP=CDsSN=lsGOSUB 1090 srem 28054 

1070 GOTO 940 srem 31646 

1080 POKE VIC+21,PEEK(VIC+21) AND 24sRETURN srem 17124 

1090 VP=32*VP+57 sHP=40*HP+8 sSM=2TSN+1 srem 14482 

1100 Z=(PEEK(VIC+16) AND NOT SM)-SM* (HP>255) srem 43509 

1110 POKE VIC+21,PEEK(VIC+21) AND NOT SMsPOKE VIC+16,ZsZ=SN+SN srem 7226 
1120 POKE VIC,HP AND 255sPOKE VIC+1,VP srem 4093 

1130 POKE VIC+Z,HP AND 255sPOKE VIC+Z+1,VPsPOKE VIC+21,PEEK(VIC+21) OR 
SM-XX srem 20419 
1140 RETURN srem 15005 

1150 PRINT "(clr whtJSETTING.UP... srem 6885 
1160 SP=CRT+1016 srem 65430 

1170 SB=llsSN=2sPOKE SP+SN,SBsPOKE SP+SN+1,SBsSN=SN+2sGOSUB 1210 srem 10269 

1180 SB=13sSN=lsGOSUB 1210sSN=0$SB=14sGOSUB 1210 srem 56267 

1190 POKE VIC+39,7sPOKE VIC+40,12 srem 7699 

1200 POKE VIC+42,10sPOKE VIC+43,14sRETURN srem 50763 

1210 POKE SP+SN,SBsSB=SB*64sSN=SN+1 srem 36561 

1220 READ NsFOR 1=0 TO N-lsREAD TsPOKE SB+I,TsNEXT srem 21049 

1230 FOR I=N TO 63sPOKE SB+I,0sNEXT srem 59138 

1240 RETURN srem 20219 

1250 DATA 63,12,24,48,12,219,48,126,126,254,219,25,179,28,56,56,54,108,108, 
102 srem 60854 

1260 DATA 204,204,24,48,48,27,51,48,126,252,252,217,153 srem 2830 
1270 DATA 182,28,56,112,54,108,216 srem 20023 

1280 DATA 51,102,204,12,24,48,108,219,54,63,126,252,13,153,176,28,28,112, 
54,54 srem 14750 

1290 DATA 216,54,102,216 srem 53116 

1300 DATA 47,0,0,0,0,0,0,0,0,0,0,0,0,1,131,0,1,255,0,0,254,0,0,124,0,0,254, 
0,1 srem 23280 

1310 DATA 255,0,1,255,0,1,255,0,1,255,0,1,255,0,0,254,0,0,56 srem 53711 

1320 DATA 57,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0 srem 5474 

1330 DATA 192,7,1,192,3,131,128,1,199 srem 35340 

1340 DATA 0,0,238,0,0,124,0,0,56,0,0,124,0,0,238,0,1 srem 6032 

1350 DATA 199,0,3,131,128,7,1,192,6,0,192 srem 45390 

178 lines, proof number = 36903 
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Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in AMBUSH 

BX() Array for grid values 

CO Column position of armies 

DE Delay loop variable 

HP Horizontal position for sprite placement 

I$() Color values for the two armies 

ID Value of joystick 

KT Delay loop variable 

NA$0 Names of the two armies 

R$ Cursor-down string for screen formatting 


R() Row position of armies 

SB Sprite base address 

SM Low value for sprite X coordinate 

SN High value for sprite X coordinate 

SP Address of sprite pointers 

T() Array of tone values (beeps) for the armies 

VP Vertical position for sprite placement 

XX Flag for legal or illegal moves 


How AMBUSH Works 

100-240 Initialize sound, playing board, and other 
variables 

250-380 Main game loop. Select next camp and 
bomb target for each general 

390-460 End of game: display winning general and 
ask for another game 


470-500 

540-600 

610-750 

760-930 

940-1100 

1110-1350 


Delay loops 

See if a general is trapped 
Sound routines, board setup and display 
Joystick movement for next camp 
Joystick movement for bomb target 
Sprite setup and display 




MAXIT 

Harry Saal 



M AXIT is a logic game played on an 
8x8 grid, with one person playing 
horizontally, and the other verti¬ 
cally. The grid is filled with random numbers, 
some negative, and some positive. The object is 
to get the highest score, but there is a subtle 
twist: taking the largest number isn't always 
the best move. You have to look ahead and try to 


guess which number the other player will 
choose. When you play against the C-64, you’ll 
find out just how devious a game this can be. 
Use the joystick to move the marker to the 
square containing the number you wish to 
select, then press the joystick button. 

Note: MAXIT requires a joystick. 


1 PG$="MAXIT":AU$="HARRY^J.^SAAL":BG$="JOYSTICK^BUTTON" :rem 21049 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 31JUL84 
90 GOTO 62000 :rem 51784 

100 GOSUB 1540 sSZ=7:NQ=(SZ+1)*(SZ+1):DIM AV(NQ) :rem 32246 

110 GOSUB 1290:POKE VIC+32,OsPOKE VIC+33,0 SPRINT "tclr)" :rem 19332 

120 DEF FNJ(N)=15-(PEEK(JS+N) AND 15) :rem 41177 

130 DEF FNB(N)=PEEK(JS+N) AND 16 :rem 20813 

140 PR$= n HOW.MANY / ,PLAYERS?_ONE_TWO / ," :rem 5733 

150 JM=2:IN=1sJT=19sJW=5 sGOSUB 60200:NP=IN :rem 64894 

170 Pl$="( blu lHORIZONTAL":P2$="( red )VERTICAL" srem 29412 

180 S1=0 sS2=0sGOSUB 940 :rem 41346 

190 PRINT n (wht>" srem 61690 

200 I=RND(-TI)sMD=l srem 8473 

210 FOR K=1 TO NQsAV(K)=KsNEXT srem 5701 

220 FOR K=NQ TO 1 STEP -1 srem 48382 

230 READ PC srem 41917 

240 Pl=O+INT(K*RND(0)) srem 55467 

250 J=AV(Pl)-0 srem 27051 

260 IF P1<K THEN FOR A3=Pl TO K-OsAV(A3)=AV(A3+0)sNEXT srem 54029 

270 I=INT(J/(SZ+O))sJ=J—(SZ+O)*1 srem 42743 

280 BD(I,J)=PCsGOSUB 480 srem 52335 

290 NEXT KsRESTORE srem 21455 

300 DATA 15,10,9,9,8,8,7,7,7,6,6,6 srem 34780 

310 DATA 5,5,5,5,4,4,4,4,3,3,3,3,3 srem 21337 

320 DATA 2,2,2,2,2,2,1,1,1,1,1 srem 22477 

330 DATA 0,0,0,0,0,0,-1,-1,-1,-1,-1 srem 26005 

340 DATA -2,-2,-2,-2,-3,-3,-3 srem 48419 

350 DATA -4,-4,-4,-5,-5,-6,-6 srem 42026 

360 DATA -7,-9,100 srem 16144 

370 PRINT "{yel}"sGOSUB 1470 srem 13627 

380 CC=14sPL=lsGOSUB 560sIF FL=0 THEN 410 srem 29305 

390 CC=10sPL=2sGOSUB 560sIF FLOO THEN 380 srem 57048 
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400 GOSUB 920:PRINT srem 46146 

410 ON 2+SGN(S2-Sl) GOSUB 450,460,470 :rem 39569 

420 PRINTsPR$="PLAY a AGAIN? aa YES AA NO"jIN=1sJM=2 sJW=5 sJT=13: 

GOSUB 60200 :rem 18266 

430 IP IN=1 THEN POKE VIC+21,0:GOTO 180 :rem 30935 
440 GOTO 60600 :rem 26309 

450 PRINT Pl$; " A WON A BY A n ;STR$ (S1-S2) ; "^POINTS" sRETURN srem 48922 

460 PRINT "IT 1 S a A a TIE 111{11°space}"sRETURN :rem 8250 

470 PRINT P2$; n A WGN A BY A ";STR$ (S2-S1) ; "^POINTS" sRETURN :rem 41788 

480 PC=BD(I,J) srem 15508 

490 D$=LEFT$("{8°down}",0+I) srem 20455 

500 R$=LEFT$("{8°right)",O+J) srem 41331 

510 PRINT "{home)";D$;D$;TAB(5);R$;R$;R$; srem 36862 

520 IF MD=2 THEN PRINT "{rvs-on)"; srem 28205 

530 IF PC=OH THEN C1=IsC2=JsPRINT "{yel>"sRETURN srem 8119 

540 IF PC=MH THEN PRINT " AA "sRETURN srem 40001 

550 PRINT RIGHT?( n A "+STR$(PC),2)sRETURN srem 14459 
560 IF PL=2 THEN 600 srem 9365 

570 FL=600sFOR J=0 TO SZsFL=FL+BD(Cl,J)sNEXT srem 12240 

580 IF FL=0 THEN RETURN srem 37182 

590 DX=lsDY=0sGOSUB 630sRETURN srem 932 

600 FL=600sFOR 1=0 TO SZsFL=FL+BD(I,C2)sNEXT srem 18124 

610 IF FL=0 THEN RETURN srem 24301 

620 DX=0sDY=lsGOSUB 630sRETURN srem 38960 

630 Y=ClsX=C2sGOSUB 1350 srem 22762 

640 IF NP=1 AND PL=2 THEN GOSUB 1130sGOTO 870 srem 1753 

650 C=CCsGOTO 780 srem 32020 

660 TJ=TI+15 srem 33342 

670 JV=FNJ(0)sJB=FNB(0) srem 26451 

680 IF JVOO OR JB=0 THEN 720 srem 13587 

690 GOSUB 60500 srem 62599 

700 IF TI<TJ THEN 670 srem 2621 

710 POKE VIC+39,CsC=CC-CsGOTO 660 srem 60089 

720 POKE VIC+39,CC srem 21120 

730 IF JV=4 AND DX THEN DX=-lsGOTO 780 srem 13434 

740 IF JV=8 AND DX THEN DX=lsGOTO 780 srem 46788 

750 IF JV=1 AND DY THEN DY=-lsGOTO 780 srem 47976 

760 IF JV=2 AND DY THEN DY=lsGOTO 780 srem 63026 

770 GOTO 850 srem 38739 

780 Y=Y+DYsIF Y>SZ THEN Y=0 srem 51452 

790 IF Y<0 THEN Y=SZ srem 44366 

800 X=X+DXsIF X>SZ THEN X=0 srem 55561 

810 IF X<0 THEN X=SZ srem 39629 

820 PT=BD(Y,X)sIF ABS(PT)=100 THEN 780 srem 49812 
830 GOSUB 1350 srem 9269 
835 FOR Z=1 TO 25sNEXT Z srem 65320 
840 C=CCsGOTO 710 srem 5579 
850 IF JB=16 THEN 670 srem 21303 
860 IF ABS(BD(Y,X))=100 THEN 670 srem 41541 
870 MD=1sI=C1sJ=C2sBD(I,J)=-100sGOSUB 480 srem 24387 
880 I=YsJ=XsPT=BD(I,J)sBD(I,J)=100sGOSUB 480sGOSUB 1350s 
GOSUB 1420 srem 5609 
890 IF PL=1 THEN S1=S1+PT srem 46014 
900 IF PL=2 THEN S2=S2+PT srem 1983 
910 GOSUB 1080sRETURN srem 19234 
920 PRINT "(home 17°down>"sRETURN srem 12317 
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930 PRINT ER$:RETURN srem 29114 

940 PRINT "{clr £ur}";P1$;TAB(40-LEN(P2$));P2$ srem 50329 
960 PRINT "{2°down blu rvs-on} A {M} A {M) A {M}";TAB(36);"{red rvs-on up 2°P 
down 2°left 2°P down 2°left 2°P>" :rem 53049 
970 PRINT "(down blu>SCORE";TAB(34)j"{redJSCORE" srem 2878 
980 GOSUB 1080 srem 25844 
990 PRINT "(home blu)" srem 55498 
1000 PRINT TAB(7);"{A}";sPOR 1=1 TO SZsPRINT "{2°* R>";sNEXTs 
PRINT "{2°* S>" srem 52508 
1010 FOR J=1 TO SZ srem 3874 

1020 PRINT TAB(7);sFOR 1=0 TO SZsPRINT "{-> AA sNEXTsPRINT "{->" srem 29349 
1030 PRINT TAB(7) ; " { Q } " ; sFOR 1=1 TO SZsPRINT ”{2°* +}";sNEXTs 
PRINT "{2°* W>" srem 1707 
1040 NEXT J srem 49597 

1050 PRINT TAB(7);sFOR 1=0 TO SZsPRINT "{-} AA "; sNEXT sPRINT "{-}" srem 56753 
1060 PRINT TAB(7) ; " {Z) "; sFOR 1=1 TO SZsPRINT "{2°* E}";sNEXTs 
PRINT "{2°* X>" srem 32961 
1070 RETURN srem 49442 

1080 PRINT "{home 7°down blu >" srem 7660 

1090 C$=STR$(SI)sIF Sl>=0 THEN C$=MID$(C$,2) srem 49344 

1100 PRINT LEFT$(C$+"{4°space}",4);"{red}"; srem 41012 

1110 PRINT TAB(35);RIGHT?("{4°space}"+STR$(S2) f 4); srem 47187 

1120 RETURN srem 26664 

1130 MT=MH sGG=-lsFOR A1=Q TO SZsPC=BD(Al ,C2) s IF ABS(PC)=OH THEN 
1280 srem 37628 

1140 GOSUB 1380sGOSUB 60500 srem 19104 
1150 MX=MHsFOR A2=Q TO SZ srem 55826 

1160 IF A20C2 THEN PK=BD(Al,A2)sIF PKOMH AND PK>MX THEN MX=PKs 
SV=A2 srem 40488 
1170 NEXT A2 srem 10853 
1180 IF MXOMH THEN 1200 srem 30224 
1190 IF PC>MT THEN MT=PCsGG=AlsGOTO 1280 srem 23320 
1200 IF GG<Q THEN GG=Al srem 28171 

1210 FOR A2=Q TO SZsPQ=BD(A2,SV)sIF PQ=MH OR A2=A1 THEN 1270 srem 19247 

1220 MY=MHsFOR A3=Q TO SZsPW=BD(A2,A3)sIF A3=SV THEN 1240 srem 59703 

1230 IF ABS(PW) OOH AND PW>MY THEN MY=PW srem 35245 

1240 NEXT A3 srem 61448 

1250 IF MY=MH THEN MY=Q srem 8661 

1260 DT=PC-MX+PQ—MYsIF DT>MT THEN MT=DTsGG=Al srem 44944 

1270 NEXT A2 srem 28110 

1280 NEXT AlsY=GGsRETURN srem 49199 

1290 DIM BD(7,7) srem 8510 

1300 OH=100sMH=-100 srem 61867 

1310 A3=0sA2=0sPW=0sSV=0sMY=0 srem 36216 

1320 PQ=0sGG=0sMT=0sMX=0sDT=0 srem 38227 

1330 PC=0sPK=0sAl=0sC2=0 srem 41530 

1340 Q=0s0=1sRETURN srem 13845 

1350 POKE VIC,84+X*24 srem 41497 

1360 POKE VIC+1,59+Y*16 srem 20022 

1370 RETURN srem 65073 

1380 POKE VIC,84+02*24 srem 50995 

1390 POKE VIC+1,59+Al*16 srem 27885 

1400 POKE VIC+39,CC srem 29785 

1410 RETURN srem 46148 

1420 POKE VIC+2,PEEK(VIC+0)SPOKE VIC+3,PEEK(VIC+1) srem 56318 
1430 POKE VIC+40,PEEK(VIC+39) srem 45450 
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1440 PRINT LEFT$("{blk home 24°down>",2*1+4);TAB(3*J+8); :rem 54857 
1450 PRINT RIGHT$("^"+STR$(PT),2); srem 55124 
1460 RETURN srem 58065 

1470 FOR Z=0 TO 3sPOKE VIC+Z,0:NEXT Z srem 35917 
1490 POKE VIC+16,0 srem 16375 
1500 POKE VIC+39,14:POKE VIC+40 f 10 srem 27999 
1510 POKE VIC+21,3sPOKE VIC+27,3 srem 55068 
1520 POKE CRT+1016,13sPOKE CRT+1017,13 srem 4726 
1530 RETURN srem 19419 

1540 PRINT "tclr wht downJSETTING^UP..." srem 20857 
1550 B=l3*64 srem 5690 

1560 FOR Z=B TO B+llsPOKE Z,0:NEXT Z srem 21430 
1570 FOR Z=B+12 TO B+53 STEP 3 srem 3553 
1580 POKE Z, 127:POKE Z+l,255:POKE Z+2,254 srem 11608 
1590 NEXT Z srem 19887 

1600 FOR Z=B+54 TO B+63sPOKE Z,0:NEXT Z srem 17554 
1610 RETURN srem 61184 

206 lines, proof number = 7997 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in MAXIT 

AV() Used to fill the board 

B Base address for sprite 

BD() Two-dimensional array of board values 

C$ String for printing score 

CC Current color of marker 

DX Direction of X (horizontal) movement 

DY Direction of Y (vertical) movement 

FL Flag for game over 

JB Joystick button value 

MH Grid value of a space 

NM$ Name of current player 


NP Number of players (1 or 2) 

NQ Number of boxes on board 
O Used to round random numbers 
OH Grid value of a position marker 
PT Number of points scored from a single square 

51 Score for player 1 

52 Score for player 2 

SZ Size of board (board is SZ by SZ) 

TJ Timing variable for blinking marker 

X X-coordinate 

Y Y-coordinate 


How MAXIT Works 


100-180 Input number of players 
190-370 Set up game board with random values 
380-470 Main game loop. Alternates turns between 
players, determines winner, asks for “Play 
again?” 

480-550 Routine to print a single value on the board 
560-930 Move player's marker, and add points to 
score 


950-1070 Display grid on screen 

1080-1120 Display scores 

1130-1280 Move marker, etc. when C-64 is playing 
1290-1370 Initialize variables 
1380-1460 Display the marker (a sprite) 

1470-1610 Set up the sprite 







ORRERY 


Karl Marhenke 
Ernest Marhenke 



O RRERY plots the course of the planets. 
It will show either the inner group of 
planets (Mercury, Venus, Earth, and 
Mars) or the outer planets (Saturn, Uranus, 
Neptune, and Pluto), with Jupiter displayed in 
both groups. Although the name sounds cryp¬ 
tic, "orrery” describes the program precisely, 
since an "orrery” is an animated model of the 
solar system. Traditionally, an orrery is a me¬ 
chanical marvel with an intricate system of 
gears to simulate the revolutions of the planets. 
Now you have a electronic orrery on the screen 
of your computer, in color even! We use pro¬ 


grammable characters to make the planets look 
approximately the right shapes, although we 
take some poetic license in the selection of 
colors. 

With ORRERY, you are the master of the 
universe, or at least the solar system. For 
example, if you press R the planets will revolve 
in the reverse direction. Press F and you'll see 
things happening at the simulated speed of 180- 
day increments. (It will also use 7-, 30-, or 360- 
day intervals.) When the program begins, it 
asks if you want directions. If you type Y, it will 
show the commands it understands. 


1 PG$="ORRERY"sAU$="KARLaMARHENKE" sA2$="ERNEST*MARHENKE": 
BG$="RETURN" srem 33232 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 srem 51784 

100 DIM A(19),B(19),C(19),M$(12),D(13) :rem 27221 
11.0 TC=CM-CRT :rem 12165 

120 PRINT "(clr wht downJSETTINGAUP... " :rem 6191 
130 FOR 1=1 TO 19:READ A(I),B(I)sNEXT :rem 59648 
140 DATA .7791,.00273790931,.9931,.0027377785 srem 21579 
145 DATA .7007,.011367714,.4855,.0113675957 srem 37309 
150 DATA .5055,.00445046867,.14,.00445036173,.9874,.00145575328,.0539 
srem 989 

160 DATA .00145561327,.0896,2.3080893E-4,.0565,2.3080893E-4,.1333, 
9.294371E-5 srem 33122 

170 DATA .883,9.294371E-5,.8702,3.269438E-5,.4006,3.269438E-5,.8469, 

1.672092E-5 srem 59853 

180 DATA .7254,1.672092E-5,.6639,1.115482E-5,.041,1.104864E-5,.3574, 
1.104864E-5 srem 57579 

190 FOR 1=1 TO 12sREAD M$(I)sNEXT srem 40112 

200 DATA JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE srem 3099 

210 DATA JULY, AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER srem 44291 

220 FOR 1=1 TO 13 sREAD D(I)sNEXT srem 62980 

230 DATA 1,32,60,91,121,152,182,213,244,274,305,335,366 srem 3664 
240 FOR 1=1 TO 9sREAD 0$(I)sNEXT srem 16217 

250 DATA MERCURY,VENUS,EARTH,MARS,JUPITER,SATURN,URANUS,NEPTUNE,PLUTO 
srem 3863 

260 FOR 1=1 TO 9sREAD C1(I)sNEXT srem 24262 
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270 DATA 7,5,6,2,14,1,5,15,11 srem 17523 
280 GOSUB 1710 :rem 18664 
290 POKE VIC+24,31 srem 44005 

300 0=CRT+12*WD+26sF0R 1=1 TO 9sP2(I)=OsNEXTsCD$="{home 20°down}" 
srem 47945 


310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 
430 
440 
445 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
57 0 
580 


:rem 62550 


:rem 4528 


Ml$="I"sIN=7sF={pi}/648E3sB$="{13 0 space}"sR(3)=lsR(2)=.723 

R(8)=30.07SPRINT "(clr>" srem 2671 

PRINT "WANT*INSTRUCTIONS?*";sGOSUB 60000sZ$=LEFT$ (IN$,1) 

IF Z$="Q" THEN 60600 srem 48319 
IF Z$="Y" THEN GOSUB 1510 srem 15421 
PRINT "{clr wht}"sMF=l srem 26532 

PRINT "STARTING*YEARs**";sGOSUB 60000sY=VAL(IN$) srem 11297 
IF LEFT$(IN$,1)="Q" THEN 60600 srem 50398 
IF Y>=1680 AND Y<=2280 THEN 410 srem 12216 

PRINT "(down)BETWEEN*1680*AND*2280,*PLEASE."sGOTO 370 srem 29536 

PRINT ”{down}STARTING*MONTHs*";sGOSUB 60000sM$=IN$sIF IN$="Q" THEN 

60600 srem 46560 

IF M$=“" THEN M$="l" srem 34203 

IF ASC(LEFT$(M$,1))>57 THEN 460 srem 3392 

M=INT(VAL(M$)) sIF' M>0 AND M<13 THEN 450 srem 32591 

PRINT "(down}BETWEEN*1*AND*12,*PLEASE*"sGOTO 410 srem 6734 

M$=M$(M)sGOTO 580 srem 11838 

M=0sFOR 1=1 TO 12 srem 58348 

IF LEFT$(M$(I) ,LEN(M$))OM$ THEN 500 srem 20882 
IF M=0 THEN M=IsGOTO 500 srem 22901 

PRINT "{down)THAT*COULD*BE*";M$(M);sM=IsGOTO 530 srem 58751 

NEXT I srem 19821 

IF M>0 THEN 580 srem 54402 

PRINT "(down}NO*SUCH*MONTH. *TRY*AGAIN."sGOTO 410 srem 48163 
IF M=12 THEN 570 srem 37040 
FOR I=M+1 TO 12 srem 60704 

IF LEFT$(M$(I),LEN(M$))=M$ THEN PRINT ",*";M$(M);sM=I srem 44601 
NEXT I srem 42910 

PRINT "*OR*";M$(M)"sGOTO 410 srem 1228 

D=D(M)sLY=0sIF Y/4=INT(Y/4) AND D>59 THEN D=D+lsLY=l :rem 10187 


590 T=367*Y-INT(7*(Y+INT( (M+9)/12))/4)+INT(275*M/9)+1-730531.5s 
Tl=l+T/36525 srem 31530 
600 IF M1$=M2$ THEN 630 srem 56155 

610 LO=lsU=5sE=5.7sMA=2sT$="(home rvs-on}INNER*PLANETS{rvs-off >"sM2$=Ml$ s 
MF=1 srem 38204 


620 IF M1$="0" THEN LO=5sU=9sE=49.3sMA=-2sT$="{home rvs-on} 

OUTER*PLANETS(rvs-off}" srem 18832 
630 LL=1sUU=10sIF M1$="0" THEN LL=9sUU=19 srem 2083 
640 FOR I=LL TO UUsC=A(I)+B(I)*TsH=0sIF C<0 THEN H=1 srem 40470 
650 C(I)=2*{piJ*(C-INT(C)-H)sNEXT srem 3467 
660 IF M1$="0" THEN 720 srem 7825 

670 L(l)=F*(84378*SIN(C(4))+10733*SIN(2*C(4)))+C(3) srem 54786 
680 R(l)=.39528-.07834*COS(C(4)) srem 25906 
690 L(2)=F*(2814*SIN(C(6)))+C(5) srem 32835 
700 L(3)=F*(6910*SIN(C(2)))+C(1)+{pi} srem 15078 
710 L(4) =F* (38451*SIN (C (8)) +2238*SIN (2*C (8)) )+C(7) s 
R(4)=1.5303-.1417*COS(C(8)) srem 55832 
720 L(5)=F*(19934*SIN(C(10))+5023*T1+2511)+C(9) srem 800 
730 R(5)=5.20883-.25122*COS(C(10))sIF Ml$="I" THEN 810 srem 17113 
740 L=23045*SIN(C(12))+5014*Tl-2689*COS(2*C(10)-5*C(12))+2507 srem 22810 
750 L(6)=F*L+C(11)sR(6)=9.55774-.53252*COS(C(12)) srem 39804 
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760 L(7)=F*(19397*SIN(C(14)))+C(13) sR(7) =19.21216-,90154*COS(C(14)) 

:rem 63922 

770 L(8) =F*(3523*SIN(C (16))) +C(15) srein 37221 

780 L=101577*SIN(C(18)J +15517*SIN(2*C(18))-3593*SIN(2*C(19)) srem 26430 
790 L(9)=F*(L+3414*SIN(3*C(18)))+C(17) srem 15634 
800 R(9)=40.74638-9.58235*COS(C(18))-1.16703*COS(2*C(18)) srem 589 
810 FOR 1=1.0 TO U:X(I)=R(I) *COS(L(l)) sY(I)=R(I)*SIN(L(I)) srem 65414 
820 XX=X(I)*24.5/EsSX=lsIF XX<0 THEN SX=-1 srem 37744 

830 X%=ABS(XX)sV=SX*INT((X%+l)/2)$FX=0sIF XX>=0 AND X%/2=INT(X%/2) THEN 
FX=1 srem 49144 

840 IF XX<0 AND X%/2<>INT(X%/2) THEN FX=1 srem 45522 
850 YY=Y(I)*24.5/E$SY=1sIF YY<0 THEN SY=-1 srem 12135 

860 Y%=ABS(YY)sW=SY*INT((Y%+1)/2)sFY=0sIF YY>=0 AND Y%/2=INT(Y%/2) THEN 
FY=1 srem 1095 

870 IF YY<0 AND Y%/2<>INT(Y%/2) THEN FY=1 srem 13524 

880 Pl(I)=0+V-WD*WsRl(I)=123sIF FX=1 AND FY=0 THEN Rl(I)=108 srem 53061 
890 IF FX=0 AND FY=1 THEN Rl(I)=126 srem 43439 
900 IF FX=1 AND FY=1 THEN Rl(I)=124 srem 47292 
910 IF 1=1.0 THEN 1000 srem 30108 

920 FOR J=LO TO I-lsIF Pl(I)OPKJ) THEN 990 srem 61271 
930 Q=Rl(I)+R1(J)sIF Q=231 THEN R1(I)=98sGOTO 990 srem 25017 
940 IF Q=249 THEN R1(I)=97sGOTO 990 srem 59983 

950 IF Q=247 THEN Rl(I)=255sGOTO 990 srem 59971 

960 IF Q=252 THEN Rl(I)=225sGOTO 990 srem 57817 

970 IF Q=250 THEN Rl(I)=226sGOTO 990 srem 63612 

980 Rl(I)=127 srem 58456 
990 NEXT srem 10545 
1000 NEXT srem 32676 
1010 IF MF=0 THEN 1110 srem 27900 

1020 PRINT "(clr cyn 13°right U 12°*)S{11°* I left inst *>" srem 6483 
1030 POKE VIC+33,0 srem 24985 

1040 Bl?="{13°right - 24°right - left instK" srem 56301 
1045 FOR 1=1 TO 11 SPRINT Bl?sNEXT srem 15549 
1050 PRINT "{13°right}A{24°right>V{left inst}*" srem 43041 
1055 FOR 1=1 TO 11 SPRINT Bl$sNEXT srem 8468 

1060 PRINT "(13°right J 12°*}W{11°* K left inst * home}.." srem 20556 
1070 PRINT T?sFOR 1=1.0 TO UsPRINT LEFT? (CD?, I+MA) y s 
POKE 646,C1(I) srem 50587 

1080 IF 1=6 THEN PRINT "(P);sGOTO 1100 srem 41229 
1090 PRINT srem 16369 

1100 POKE 646,3SPRINT 0$(I)sNEXTsMF=0 srem 11976 
1110 PRINT LEFT?(CD$,11);MID$(STR$(Y),2);"{9°space)" srem 19196 
1120 IF Y<0 THEN PRINT LEFT?(CD?,11);"{6°right)B.C." srem 58720 
1130 PRINT B?SPRINT "{up)";M?(M);DHD (M)+1-LY+YD srem 29106 
1140 PRINT LEFT?(CD?,21) ;MID? (STR? (IN) ,2) ; "J>AY^"sPRINT "INCREMENT" 
srem 36547 

1150 FOR I=LO TO UsPOKE P2(I),32sNEXTsPOKE 0,81sPOKE TC+0,8 srem 34385 

1160 FOR I=LO TO UsIF 1=6 THEN POKE P1(I),80sGOTO 1180 srem 3776 

1170 POKE PI(I),Rl(I) srem 18040 

1180 POKE TC+PKl) ,C1(I) sNEXT srem 44983 

1190 POKE 0,81sPOKE TC+0,8 srem 5297 

1200 IF IN>0 THEN PRINT LEFT?(CD?,18);B?sPRINT B? srem 15325 
1210 IF IN<0 THEN PRINT LEFT?(CD?,18);"{blu)REVERSE"SPRINT "MOTION(cyn)" 
srem 54203 

1220 GET A?sIF A?="" THEN 1400 srem 53885 
1230 IF A?="H" THEN GOSUB 1340 srem 50296 
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1240 IP A$="0" 
1250 IP A$="S" 
1260 IP A$="M" 
1270 IP A$-"F" 
1280 IP A$="V" 
1290 IP A$="R" 
1300 IP A$="D" 
1310 IP A$="N“ 
1315 IP A$="?" 
1320 IP A$="Q" 
1330 GOTO 1220 


OR A$="I" THEN M1$=A$ :rem 31405 
THEN IN-7*SGN(IN) srem 49321 
THEN IN»30*SGN(IN) srem 13405 
THEN IN=180*SGN(IN) srem 11853 
THEN IN=360*SGN(IN) srem 53615 
THEN IN=-ABS(IN) srem 22470 
THEN IN s ABS(IN) srem 46546 
THEN 360 srem 52575 

OR A$="/" THEN GOSUB 1510sMF=lsGOTO 1010 
THEN 60600 srem 45442 
srem 17254 


srem 42421 


1340 GET A$sIP A$<>"" THEN 1340 srem 4198 

1350 PRINT LEFT$(CD$,13);"AND a HOLDING" srem 26335 

1360 PRINT "{down blu}PRESS A ANY A KEY"sPRINT "TO^RESTART{cyn}" srem 27541 
1370 GET A$sIF A$="" THEN 1370 srem 13645 

13 8.0 PRINT LEFT$(CD$,13);B$sPRINT B$sPRINT B$sPRINT B$ srem 42301 
1390 RETURN srem 35046 


1400 T=T+INsTl=Tl+IN/36525sD=D+IN srem 45720 
1410 IF D>0 THEN 1440 srem 22981 
1420 Y=Y-1sD=D+365sIF Y=0 THEN Y=-l srem 21034 
1430 IP Y/4=INT(Y/4) THEN D=D+1 srem 35292 

1440 LY=0sYD=0sIF Y/4=INT(Y/4) AND D>59 THEN LY=1 srem 40314 
1450 IP Y/4=INT(Y/4) AND D=60 THEN YD=1 srem 14373 
1460 FOR M=1 TO 12sIP D<D(M+1)+LY THEN 1500 srem 57705 
1470 NEXT srem 17303 

1480 D=D-365-LYsY*=Y+lsIF Y=0 THEN Y=1 srem 254 
1490 GOTO 1440 srem 7852 


1500 FOR I=LO TO U sP2 (I) =P1 (I)sNEXTsGOTO 600 srem 18757 
1510 PRINT "(clr wht}"; srem 51174 

1520 PRINT "{5°space}SHOW A {rvs-on}I{rvs-off>NNER A PLANETS" srem 55497 
1530 PRINT "{10°space rvs-onKMrvs-off}UTER„PLANETS" srem 35256 
1540 PRINT "{downKSPEED A IS A {rvs-on}S{rvs-off }LOW{7°space} 
(^7 *DAY a INTERVAL) " srem 36676 

1550 PRINT n {10°space rvs-on}M{rvs-off}EDIUM{5°space}( A 30 a DAY a INTERVAL)" 
srem 2152 


1560 PRINT "{10°space rvs-on}F{rvs-off}AST{7°space)(180 a DAY a INTERVAL)" 
srem 32652 

1570 PRINT "(10°space rvs-onJVCrvs-off}ERY a PAST aa (360 a DAY a INTERVAL)" 
srem 18755 

1580 PRINT "{downJMOTION A IS A {rvs—on)DCrvs-off)IRECT a (FORWARDS)" srem 52770 
1590 PRINT "(10°space rvs-on>R{rvs-off}ETROGRADE A (BACKWARDS)" srem 8101 
1600 PRINT "{down} AA YOU a MAY a { rvs—on)H{rvs-off)ALT a THE a PLANETS^BRIEFLY" 
srem 61398 

1610 PRINT "{4°space)PICK AA {rvs-onJN{rvs-off}EW a DATE" srem 18454 

1615 PRINT ”{10°space rvs-on}?{rvs-off>DISPLAY a THIS a HELP" srem 52668 

1620 PRINT "{10°space rvs-on)Q{rvs-of f >U IT HATCHING" srem 33643 

1630 PRINT B {down}THE A SIDES A OF A THE A DISPLAY A AREs" srem 63174 

1640 PRINT "{down 4°space>VERNAL A (SPRING)^EQUINOX" srem 390 

1650 PRINT "{4°space)SUMMER A SOLSTICE" srem 31183 

1660 PRINT "{4°space}AUTUMNAL A EQUINOX" srem 51644 

1670 PRINT "{4°space}WINTER^SOLSTICE" srem 43305 

1680 PRINT "{down)HIT A ANY A KEY A TO A CONTINUE." srem 16694 

1690 GET XSsIF X$=" n THEN 1690 srem 54112 

1700 RETURN srem 62432 

1710 B=49152s1=0 srem 19744 

17 20 READ Vs IF V=-l THEN 1740 srem 20540 
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1730 POKE B+I,VjI=I+1jGOTO 1720 srem 62770 

1740 SYS 49152 srera 43451 

1750 B=14336 srem 10810 

1760 READ PsIF P=-l THEN 1800 :rem 12407 

1770 B2=B+P*8 :rem 33361 

1780 FOR Z=0 TO 7:READ VsPOKE B2+Z,V:NEXT Z :rem 61517 
1790 GOTO 1760 :rem 13452 
1800 RETURN :rem 34438 

1810 DATA 120,165,1,41,251,133,1,169,0,133,251,133,253,169,56 :rem 15169 

1820 DATA 133,252,169,208,133,254,162,8,160,0,177,253,145,251 srem 62767 

1830 DATA 200,208,249,230,252,230,254,202,208,240,165,1,9,4 srem 60553 

1840 DATA 133,1,88,96,-1 srem 24358 

1850 DATA 80,0,0,24,255,24,0,0,0 srem 31122 

1860 DATA 81,145,82,60,255,60,60,84,146 srem 18074 

1870 DATA 98,0,0,0,0,102,255,255,102 srem 11267 

1880 DATA 108,0,0,0,0,6,15,15,6 srem 11132 

1890 DATA 123,0,0,0,0,112,248,248,112 srem 35671 

1900 DATA 124,6,15,15,6,0,0,0,0 srem 20242 

1910 DATA 126,112,248,248,112,0,0,0,0 srem 49817 

1920 DATA 127,96,240,240,96,6,15,15,6 srem 32770 

1930 DATA 255,6,15,15,6,96,240,240,96 srem 26000 

1940 DATA 226,102,255,255,102,0,0,0,0 srem 48009 

1950 DATA 87,0,0,60,126,126,60,0,0 srem 10626 

1960 DATA 97,112,248,248,112,112,248,248,112 srem 15213 

1970 DATA 225,6,15,15,6,6,15,15,6 srem 10856 

1980 DATA -1 srem 40659 

251 lines, proof number = 28238 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in ORRERY 

A$ Current key press 

A() Data array for planet movement 
B Address for programmable character set 

B() Data array for planet movement 
Cl() Color values for the planets 
CD$ Screen formatting string 

D Current number of days 

D() Number of days per month 

IN Number of days in interval between movement 
of planets 

L() Used to compute orbit of planets 
LO Starting planet for display 

LY Leap-year flag 

M Current month 


M$() Names of the 12 months 
Ml$ Display type: inner or outer planets 
M2$ Last display type 
MF Flag to redraw display screen 
O Screen position of the sun 
O$0 Names of the planets 
PK) Screen positions of the planets 
RIO Current POKE value for each planet 
T$ String to print planet types 
TC Pointer to color memory 
U Ending planet for display 
Y Current year 

YD Adjust number of days if a leap year 
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How ORRERY Works 

100-320 Initialize all variables and arrays 

330-570 Ask about instructions and input starting 
month and year 

580-590 Initialize day counter and leap-year flag 

600-800 Main loop to compute next position in orbit 
for each planet 

810-1000 Compute screen position and POKE value 
for each planet 

1010-1210 Display planet, date and other information 
on screen 


1220-1330 

1340-1390 

1400-1500 

1510-1700 

1710-1980 


Read in key press and execute appropriate 
action 

Halt planet movement and wait for a key 
press 

Increment number of days and adjust 
month and year accordingly 
Display instructions 

Code and data for programmable character 
set 


GAUSS 


o;ofj 




Glen Fisher 



G AUSS is a clever demonstration of 
binomial probability that is fun to 
watch. It displays a constantly chang¬ 
ing bar graph that shows the results of drop¬ 
ping a ball bearing through 11 rows of pegs. As 
the ball bearing hits a peg, there is a 50 percent 
chance it will bounce to one side or the other. 
GAUSS represents the ball dropping across 
rather than down the screen. We take this lib¬ 
erty with reality because there is room for more 
rows of pegs, which makes for a broader, more 
interesting curve. 

If you let the program run long enough, the 
graph will approximate the bell curve of nor¬ 
mal distribution. If you press the percent key (a 
shifted “5”) the actual percentage of balls 
dropped in each slot will be shown, which you 


can compare to the percentage that theoreti¬ 
cally would fall in that slot over the long run. 
Even after a only few hundred balls have been 
dropped the actual percentages start to closely 
approximate theory. When you want to see the 
graph and the actual number of balls in each 
slot, press the space bar. 

At the upper left-hand corner of the screen is 
a box showing the number of days (yes, people 
have been known to run this program for sev¬ 
eral days!), hours, minutes, and seconds it has 
been operating, and how many balls have been 
dropped. For some interesting background on 
this subject, see The Nature and Growth of Mod¬ 
em Mathematics by Edna E. Kramer (Haw¬ 
thorne Books, 1970), pages 313, 314, and 327- 
330. 


1 PG$="GAUSS"sAU$="GLEN-FISHER"sBG$="RETURN" :rem 64614 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905 f SANTA BARBARA/ CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 :rem 51784 
100 PRINT "(clr wht)SETTING-UP..." srem 43710 
110 C=28:UD=0:RN=0:SC=0:MX=0:RT=0 srem 59461 
120 SID=54272sFOR 1=0 TO 28:POKE SID+I f 0:NEXTsPOKE SID+6,96: 

POKE SID+4,17 srem 49733 
140 DY=5184000 srem 40338 
150 PC=SID+1sVL=SID+24 srem 37250 
160 IV=216 srem 53221 
170 PD$="---(rvs-off>" srem 11236 
180 DIM N(25)/P$(25),GR$(48),NT<25) srem 11231 
190 BL=81 srem 25938 

200 FOR 1=2 TO 24sREAD NT(I)sNEXT I srem 63369 

210 DATA 64 / 68 / 72 / 76 / 81 /85/91/96*102/108/114/121/128/136 srem 39810 

220 DATA 144/152,161/171/181/192/203/215/228,242 srem 64963 

230 N(2)=100 srem 42787 

240 FOR 1=4 TO 24 STEP 2sN=0 srem 28784 

250 FOR J=2 TO 1-2 STEP 2 srem 56857 

260 T=N(J)/2sN(J) =N+TsN=T srem 46435 

270 NEXT J sN (I)=NsNEXT I srem 38031 

280 FOR 1=2 TO 24 STEP 2sN=N(I)sGOSUB 1070sP$(I)=MID$(N$,2)sN(I)=0s 
NEXT I srem 22416 
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290 FOR N=1 TO 6 srem 17170 

300 L$=MID$("{5°space}"fN)sR$=LEFT$("{rvs-on 5°space)",N)s 
I=N*8-8 srem 54594 

310 FOR J=1 TO 8sGR$(I+J)=L$+MID$("{rvs-off M rvs-off N rvs—off L rvs-on 
K rvs-on J rvs-on H rvs-on G rvs-on)*",J+J-1,2) +R$:NEXT J srem 64305 
320 NEXT N srem 40867 
330 GR$(0)="(6°space)" srem 36491 
350 POKE VIC+32,12sPOKE VIC+33,9 srem 9037 
360 PRINT "(clr)"; srem 31368 

370 PRINT TAB(C);"{6°* S left down -)" srem 37491 

380 FOR 1=1 TO 5sGOSUB 970sGOSUB 1020sNEXT I srem 15814 

390 PRINT "tup 5°@)" srem 58905 

400 PRINT "{5°space)";s1=6sGOSUB 970 srem 60827 

410 PRINT °{5°T up)" srem 16471 

420 FOR 1=5 TO 1 STEP -1sGOSUB 1020sGOSUB 970sNEXT I srem 4202 

430 PRINT TAB(C);"{6°space -)"sPRINT TAB(C);"{6°* X home)" srem 23092 

440 TI$="000000" srem 22672 

450 PRINT "{home yel A 3°* R 8°* S)" srem 34689 

460 PRINT "{-).* A {- 8°space -)" srem 55473 

470 PRINT "{Q 3°* E 8°* W)" srem 28152 

480 PRINT "{- 12°space -)" srem 27249 

490 PRINT "{Z 12°* X wht)" srem 16044 

500 TM=TI srem 60074 

510 IF EX THEN GOTO 60600 srem 27675 

520 IF TI<TM THEN 520 srem 24148 

530 TM=TM+IVsT$=TI$sIF TM>=DY THEN TM=TM-DYsND=ND+l srem 57528 
540 PRINT "{home down right)RIGHTS(" A "+STR$(ND)*3); srem 41260 
550 PRINT "{right)";LEFT$(T$,2);"s n ;MID$(T$,3,2);"s";RIGHT$(T$,2) 
srem 8173 

560 B=B+1sPRINT "{home 3°down right)BALL";B srem 64812 

570 P=12*40+CRTsUD=0sRT=l srem 25590 

580 R=13sO=32 srem 3263 

590 POKE P,0 srem 21856 

600 P=P+UD+RTsR=R+RCsUD=0sRC=0 srem 1303 

610 0=PEEK(P)sPOKE P,BL srem 1475 

620 IF 0=32 THEN 660 srem 8023 

630 NT=NT(R)sGOSUB 940 srem 11252 

640 IF 0064 THEN POKE P,OsGOTO 690 srem 16560 

650 UD=40sRC=lsIF RND(1)>.5 THEN UD=-40sRC=-l srem 49274 

660 GOSUB 950 srem 40320 

670 GOTO 590 srem 62563 

690 ER=0sN(R)=N(R)+l srem 30873 

700 IF N(R)>MX THEN MX=N(R)sSC=48/MXsRN=MX/(MX+l) srem 24038 

710 GET T$sIF T$="" THEN 740 srem 26783 

720 IF T$=CR$ OR T$="Q" THEN EX=lsT$=TY$ srem 41086 

730 IF T$OTY$ THEN ER=lsTY$=T$ srem 6430 

740 IF TY$="%" THEN 850 srem 24567 

750 IF ER=0 THEN 800 srem 63918 

760 FOR 1=2 TO 24 STEP 2 srem 62760 

770 N$=RIGHT$ (",**.* "+STR$ (N (I)) ,5) sIF N(I)=0 THEN N$=" {5°space ) " srem 31578 
780 POKE QL/IsPRINT "{up)";TAB(C+7);N$;"{home)" srem 37239 
790 NEXT IsGOTO 810 srem 34313 

800 POKE QL f RsPRINT "{up)";TAB(C+7)jRIGHT$("_"+STR$(N(R)),5)j"{home)" 

srem 35049 

810 FOR 1=2 TO 24 STEP 2 srem 50953 

820 POKE QL?IsPRINT "{up)";TAB(C);GR$(N(I)*SC+RN);"{home)" srem 14492 
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830 NEXT I srem 38064 

840 GOTO 930 srem 34629 

850 IF ER=0 THEN 890 :rem 18909 

860 FOR 1=2 TO 24 STEP ,2 :rem 13914 

870 POKE QL,IsPRINT " {up} ";TAB(C+7);P$(I);"{home)" srem 57935 

880 NEXT I :rem 47731 

890 FOR 1=2 TO 24 STEP 2 :rem 52014 

900 N=N(I)/B*100sGOSUB 1070 srem 55966 

910 POKE QL,IsPRINT " {up} ";TAB(C);N$;"(home)" srem 35902 

920 NEXT I srem 9064 

930 GOSUB 950sGOTO 510 srem 50995 

940 POKE VL,15sPOKE PC,NTsRETURN srem 47491 

950 POKE VL,32sRETURN srem 37654 

970 PRINT TAB(29-4*1); srem 61069 

980 IF I>1 THEN FOR J=2 TO IsPRINT "„{*};sNEXT J srem 54051 
990 PRINT "„{*>"; srem 59930 
1000 PRINT TAB(C);"(6°* W)” srem 18356 
1010 RETURN srem 52435 
1020 PRINT TAB(27-4*1); srem 65281 

1030 IF I>1 THEN FOR J=2 TO IsPRINT "*{*}**";sNEXT J srem 27171 

1040 PRINT "„{*}"; srem 45917 

1050 PRINT TAB(C—1);"(7“space srem 33129 

1060 RETURN srem 24680 

1070 N=INT(N*100+.5)sIF N=0 THEN N$="{6°space>"sRETURN srem 22510 
1080 N$=MID$ (STR$ (N) ,2) sIF N<10 THEN N$= ,, 0"+N$ srem 3456 
1090 IF NC100 THEN N$="0"+N$ srem 58111 

1100 N$=RIGHT$(PD$+N$,6)sN$=LEFT$(N$,4)+"."+RIGHT$(N$,2)sRETURN srem 35818 
153 lines, proof number = 65466 


Reminder. Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in GAUSS 

B Current ball number 

BL Screen POKE value of a ball 

C Tab width for screen formatting of chart (graph) 

DY Number of jiffies in one day 

ER Flag for a new key press 

EX Flag for Quit 

GR$() Holds graphics symbols for graph 
IV Time of delay between each ball dropped 

MX Maximum number of balls in one slot so far 
N() Number of times ball has fallen in each slot 
ND Number of days since program started 
NT() Note values for different heights 
P Screen position of ball 


P$() Percentage change for each slot (getting a ball) 
PC Address of pitch for SID voice one 
PD$ Screen formatting variable 
QL Address of cursor row 

R Current row of ball 

RC Direction of pitch change in sound and ball 
movement 

RN Rounded value for graph display 
RT Constant variable for ball direction (right) 

SC Rounded value for graph display 
TY$ Last key press 
UD Movement control of ball 


How GAUSS Works 


100-330 Initialize variables 

350-490 Draw screen display 

500-560 Update time, days, and number of balls so 
far 

570-580 Get ready to drop ball 

590-670 Drop one ball 

690-700 Increment counter for slot that ball drops 


710-740 

750-840 

850-930 

940-950 

970-1060 

1070-1100 


Determine type of display (percentages or 
graph) 

Adjust bar graph 
Adjust percentages 
Sound routines 
Screen-display subroutines 
Convert a number to a string 




voz 


Gary Marsa 


H ere's a real thinking game for those 
who play chess! If you don't under¬ 
stand chess, you may want to skip this 
program, since it assumes you know the rules 
for moving chess pieces. If you are learning 
chess, VOZ will help you sharpen your skills. 

Five chess pieces are placed at random spots on 
the board, each indicated by a flashing question 
mark. You get 12 chances to try to determine the 
identity of each piece. Using a joystick, you 
move the hollow red square to any position on 
the board, and press the joystick button to learn 
how many of the five pieces would attack that 

1 PG$="V0Z":AU$="GARY-MARSA":A2$="AND~GLEN-FISHER": 

BG$="JOYSTICK^BUTTON" :rem 17024 
3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 
5 REM BOX 6905, SANTA BARBARA, CA 93160 
6 : 

10 REM AS OF 26JUL84 
90 GOTO 62000 srem 51784 
100 PRINT "{homeJSETTING^UP..." srem 27673 

110 DIM SQ(8,8),V(8,8),AT(8,8),SL(8,8),S(5),PC(5),X(5),Y(5),SC(9),PN$(5), 
PC$(5) srem 24452 

120 X=RND(-TI)sL=12sBS=L+6sGOSUB 1110 srem 8040 

130 DN$="(home 17"down)"sFOR 1=1 TO 5sREAD PN$(I)sPC(I)=ASC(PN$(I))+64s 
NEXT srem 52842 

140 Z=CRT+14+2*WDsFOR 1=1 TO 8sFOR J=1 TO 8 srem 32629 
150 SQ(9-I,J)=Z+2*(WD*(I-1)+(J-l))sNEXT J,I srem 41181 

160 FOR 1=1 TO 4 sREAD SC(I) sNEXTsPOKE VIC+32,3 sPOKE VIC+33,12 srem 42846 
170 PRINT "(clr 10 "down 7°space}POSITIONING*THE*PIECES. .." srem 16671 
180 POKE VIC,0 sGOSUB 650sM=0sG=0 srem 19985 
190 A1=INT(RND(1) *8) +1 sA2=INT(RND(1) *8) +1 srem 7775 
200 JC$=" (blu wht)" sFOR 1=1 TO 5sPC$(I)=JC$sPOKE SP+I+1,BGsNEXTs 
GOSUB 570 srem 34926 

210 POKE VIC+28,124sPOKE VIC+27,124sPOKE VIC+21,127 srem 39182 

220 PRINT "{home 5°down 3°right cyn rvs-on) ";L-M; " Clef tK" srem 45099 

230 IF G=5 THEN 470 srem 26158 

240 IF M=L THEN 410 srem 56678 

250 GOSUB 1000sM=M+l srem 64237 

260 GOSUB 1260sIF Z$<>"" THEN 290 srem 52847 

270 IF SL(A1,A2) THEN 260 srem 52143 

280 POKE SQ(A1,A2),176+AT(Al,A2)sSL(A1,A2)=1sGOTO 220 srem 15130 
290 IF V(A1,A2)=0 THEN 260 srem 18389 
40 



square on the chessboard. VOZ uses a single 
king, a queen, a rook, a bishop, and a knight 
(but no pawn). When you want to guess the 
identity of a piece, place the red marker on it 
and press the FI function key. Use the joystick 
to move the highlighted bar to your choice and 
then press the joystick button. If you are right, 
that name will appear in black to indicate it has 
been found. Should you accidentally press FI, 
press F7 to cancel the guessing mode. In VOZ, 
low scores are good and high scores not so good. 

Note: VOZ uses sound. 
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300 GOSUB 1060:1=1 :rem 15705 

310 GOSUB 1370:IP Z$<>"" THEN 260 :rem 33982 

320 IP PC$(I)OJC$ THEN 310 :rem 28501 

330 IF PC(I)OV(Al,A2) THEN GOSUB 980:PRINT "(down) AA WRONGI": 

GOTO 380 :rem 34672 
335 V(A1,A2)=0 :rem 50718 

340 G=G+1:PC$(I)="tblk wht)":GOSUB 980:PRINT "(down) AA RIGHT1" :rem 38765 
350 POKE S(I),PC(I) :rera 40494 

360 Z=1+1:POKE SP+Z,FG:POKE VIC+39+Z,14 :rem 15634 

370 Z=NOT 2tZ:POKE VIC+27,PEEK(VIC+27) AND Z:POKE VIC+28,PEEK(VIC+28) AND 
Z :rem 9324 

380 ZC=1:GOSUB 1460:ZT=TI+30 :rem 62263 
390 IF TI<ZT THEN 390 :rem 47806 
400 GOTO 220 :rem 29838 

410 GOSUB 980:PRINT " A YOU'RE A OUT A OF A MOVESI" :rem 23900 
420 M=L-G+5 :rem 22172 

430 POKE VIC+28,0:POKE VIC+27,0:POKE VIC+21,124 :rem 31711 
440 FOR 1=1 TO 5:POKE S(I),PC(I) :rem 45907 
450 POKE SP+1+I,FG:POKE VIC+40+I,14:NEXT :rem 38097 
460 GOTO 480 :rem 9281 

470 GOSUB 980:PRINT " a YOU a GOT a THEM a ALL a IN i, ;M;"MOVES 11" :rem 30330 

480 POKE VIC+21,124:FOR 1=1 TO 8:FOR J=1 TO 8 :rem 54410 

490 POKE SQ(I,J),176+AT(I,J) :rem 25143 

500 NEXT:NEXT :rem 34795 

510 IF H<BS THEN BS=H :rem 61587 

520 PRINT DN$; "{3°down) < »YOUR*SCORE A IS";M; "(left) •" :rem 55473 
530 IF BS<L+6 THEN PRINT * A YOUR A BEST A SCORE A IS";BS;"(left)." :rem 51766 
540 JC$="{blk wht>":PR$=" a WANT a TO a TRY a AGAIN? aa YES aa NO":IN= 1:JW=5:JT=21: 
JM=2 :rem 24797 

550 PRINT:GOSUB 60200:IF IN=1 THEN POKE VIC+21,0:GOTO 170 :rem 25990 
560 GOTO 60600 :rem 20853 

570 GOSUB 940:PRINT "{home)":S$="(rvs-on wht> AA (rvs-on cyn ) AA {wht} AA ( cyn ) 
AA {wht> AA {cyn} AA (wht) AA {cyn} AA (wht> AA " :rem 4503 
580 FOR 1=1 TO 4:PRINT TAB(13);LEFT$(S$,26) :rem 19140 
590 PRINT TAB(13);LEFT$(S$,26) :rem 55953 
600 PRINT TAB(13);MID$(S$,5) :rem 26894 
610 PRINT TAB(13);MID$(S$,5):NEXT :rem 54268 
620 FOR 1=1 TO 5:POKE S(I),191:NEXT :rem 10199 
630 GOSUB 980:RETURN :rem 45973 

640 DATA "K a KING", "Q^QUEEN", "R^ROOK", "B a BISHOP", "N^KNIGHT" :rem 9371 

650 FOR 1=1 TO 8:FOR J=1 TO 8:AT(I,J)=0:V(I,J)=0 :rem 21550 

660 SL(IfJ)=0:NEXT J,I:FOR 1=1 TO 5 :rem 40149 

670 X%=8*RND(1)+1:Y%=8*RND(1)+1:IF V(X%,Y%) THEN 670 :rem 1913 

680 V(X%,Y%)=PC(I):S(I)=SQ(X%,Y%)-WD-1:X(I)=X%:Y(I)=Y% :rem 53907 

690 POKE VIC+2+2*I,108+16*Y%:POKE VIC+3+2*I,40+16*(9-X%) :rem 12169 

700 NEXT :rem 25813 

710 FOR 1=1 TO 5:X=X(I):Y=Y(I):ON I GOSUB 770,930,810,880,730 :rem 19058 
720 NEXT:RETURN :rem 34994 

730 FOR J=-2 TO 2:FOR K=-2 TO 2:IF J=0 OR K=0 OR ABS(ABS(J)-ABS(K))<>1 
THEN 760 :rem 19054 

740 IF <X+J<1 OR X+J>8) OR (Y+K<1 OR Y+K>8) THEN 760 :rem 24881 
750 AT(X+J,Y+K)=AT(X+J,Y+K)+1 :rem 61431 
760 NEXT:NEXT:RETURN :rem 58419 

770 FOR J=-l TO 1:FOR K=-l TO 1:IF J=0 AND K=0 THEN 800 :rera 53757 
780 IF (X+JCl OR X+J>8) OR (Y+K<1 OR Y+K>8) THEN 800 :rem 3767 
790 AT(X+J,Y+K)=AT(X+J,Y+K)+1 :rem 18538 
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800 NEXT:NEXT:RETURN srem 42824 

810 FOR T=-l TO 1 STEP 2:FOR J=1 TO 7:X1=X+T*JsIF X1<1 OR Xl>8 THEN 
840 :rem 64636 

820 AT(Xl,Y)=AT(Xl,Y)+lsIF V(X1,Y) THEN 840 :rem 218 
830 NEXT J :rem 38067 

840 NEXT TsFOR T=-l TO 1 STEP 2sFOR J=1 TO 7sYl=Y+T*JsIF Y1<1 OR Yl>8 THEN 
870 srem 20316 

850 AT(X,Yl)=AT(X,Yl)+lsIF V(X,Y1) THEN 870 srem 1004 

860 NEXT J srem 63995 

870 NEXT TsRETURN srem 31262 

880 FOR T=-l TO 1 STEP 2sFOR U=-l TO 1 STEP 2 srem 42999 

890 FOR J=1 TO 7 $X1=X+T*J sYl=Y+U*J sIF (X1<1 OR Xl>8) OR (Y1<1 OR Yl>8) 

THEN 920 srem 42229 

900 AT(Xl,Yl)=AT(Xl,Yl)+lsIF V(X1,Y1) THEN 920 srem 53772 

910 NEXT J srem 35518 

920 NEXT U,TsRETURN srem 52014 

930 GOSUB 810sGOSUB 880sRETURN srem 1872 

940 PRINT "{clr down cyn )";sFOR 1=1 TO 6sPRINT "{rvs-on right 7°space}"s 
NEXT srem 13114 

950 PRINT "(home 2°down 2°right rvs-on}TURNS M sPRINT "{2°right rvs-on} 
LEFTs" srem 49929 

960 ZC=1sFOR 1=1 TO 5sGOSUB 1460sNEXT srem 23461 
970 RETURN srem 31624 

980 PRINT DN$sFOR Z=1 TO 5sPRINT ”{39°space}" srem 44951 
990 NEXTsPRINT "{6°up wht}"sMN=0sRETURN srem 16726 
1000 IF MN=1 THEN RETURN srem 9124 

1010 GOSUB 980sPRINT "{7°space JPICK a A a SQUARE, a AND a THEN... (down)" srem 51360 
1020 PRINT " A PRESS A {blk}Fl{wht} A TO A GUESS{blu Y)0{T wht}PRESS A (blkJ 
BUTTONiwht> A TO" srem 35178 

1030 PRINT " A WHICH A PIECE A IS A ON (blu Y}R{T wht)COUNT A THE A ATTACKS" srem 7497 
1040 PRINT " a THAT a SQUARE.{ 5°space blu Y} A {T wht)ON a THAT a SQUARE.{ home)" 
srem 32431 

1050 MN=1sRETURN srem 8357 

1060 IF MN=2 THEN RETURN srem 65528 

1070 GOSUB 980sPRINT ”^PRESS A (blk)BUTTON(wht) A TO^SELECT A THE A PIECE" 
srem 8733 

1080 PRINT " a YOU a THINK a IS a ON a THE / .SQUARE. ■ srem 63513 
1090 PRINTsPRINT " a PRESS A { blk)F7{wht) a IF a YOU a DIDN'T a WANT a TO a GUESS." 
srem 54232 

1100 MN=2:RETURN srem 60851 

1110 SB=13*64sSP=CRT+1016 srem 57226 

1120 POKE VIC+23,0sPOKE VIC+29 f 0 srem 15838 

1130 POKE VIC+39,2 sFOR 1=1 TO 6sPOKE VIC+39+1,0sNEXT srem 25085 
1140 FOR 1=0 TO 15sPOKE VIC+I,0sNEXT srem 51435 
1150 Z=SB/64sPOKE SP,ZsPOKE SP+1,ZsFG=Z+lsBG=Z+2 srem 12421 
1160 FOR 1=0 TO 191sPOKE SB+I,0sNEXT srem 6504 

1170 FOR I=SB+134 TO SB+157 STEP 3sPOKE I,15sPOKE 1+1,240sNEXT srem 48232 
1180 I=SBsGOSUB 1240s1=1+3sGOSUB 1240sFOR 1=1+3 TO 1+47 STEP 3 srem 29816 
1190 POKE 1,240sPOKE 1+2,15 srem 11187 
1200 NEXT sGOSUB 1240s1=1+3sGOSUB 1240 srem 25040 

1210 FOR 1=0 TO 23 STEP 3sPOKE SB+71+I,15sPOKE SB+95+I,240sNEXT srem 23252 
1220 FOR 1=0 TO 23 STEP 3sPOKE SB+72+1,240sPOKE SB+94+I,15sNEXT srem 43682 
1230 RETURN srem 15372 

1240 POKE 1,255sPOKE I+l,255sPOKE 1+2,255sRETURN srem 17594 
1250 DATA 1,12,0,12 srem 16997 
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1260 POKE VIC,108+16*A2:POKE VIC+1,40+16*(9-A1) srem 12014 

1270 SC=SC+1:POKE VIC+38,SC(SC):IF SC=4 THEN SC=0 srem 40932 

1280 IF TI>ZT THEN POKE VIC+39,12-(PEEK(VIC+39) AND 15):ZT=TI+5 srem 49641 

1290 GOSOB 60500:IF Z$="{fl>" THEN RETURN srem 28522 

1300 JV=NOT PEEK(JS)sIF JV AND 16 THEN Z$=""sRETURN srem 22465 

1310 IF TI<JT THEN 1260 srem 48862 

1320 IF JV AND 2 THEN A1=A1-1:IF A1<1 THEN Al=8 srem 25778 

1330 IF JV AND 1 THEN Al=Al+lsIF Al>8 THEN Al=l srem 36120 

1340 IF JV AND 4 THEN A2=A2-1:IF A2<1 THEN A2=8 srem 57392 

1350 IF JV AND 8 THEN A2=A2+lsIF A2>8 THEN A2=l srem 39403 

1360 JT=TI+3sGOTO 1260 srem 33392 
1370 ZT=Q:JT=0:ZC=1 srem 33808 

1380 IF TI>ZT THEN GOSUB 1460:ZC=3-ZC:ZT=TI+15 srem 17418 
1390 GOSUB 60500sIF Z$= n {f7>" THEN ZC=lsGOSUB 1460sMN=0sGOSUB 1000s 
RETURN srem 62811 

1400 IF TI<JT THEN 1380 srem 49060 

1410 JV=NOT PEEK(JS)sIF JV AND 16 THEN ZC=2:GOSUB 1460:Z$="": 

RETURN srem 34656 

1420 IF JV AND 3 THEN JT=TI+5sZT=0:ZC=l:GOSUB 1460sZC=2 srem 32446 
1430 IF JV AND 1 THEN 1=1-1sIF I<1 THEN 1=5 srem 17365 

1440 IF JV AND 2 THEN 1=1+1sIF I>5 THEN 1=1 srem 5286 

1450 GOTO 1380 srem 32224 

1460 PRINT LEFT$<DN$,7+2*1);"{right blu>"}MID$(PC$(I),ZC,1);PN$(I)s 
RETURN srem 41858 

194 lines, proof number = 14505 


Reminder. Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in VOZ 

A1 Row of marker 

A2 Column of marker 

AT() Number of attacks on each square of chess board 
BS Best score so far 

DN$ Cursor-down string 

G Number of correct guesses so far 

JV Joystick value 

L Maximum number of turns 

M Number of turns used so far 
MN Message flag for display of messages at bottom of 
screen 

PC$() Color codes for blinking each piece 
PC() POKE values of the five pieces 


PN$() Names of the five pieces 

S$ String to print one row of chess board 

SO Screen position of each piece 

SB Current sprite block 

SC Pointer to color array for marker 

SC() Colors for flashing marker 

SL0 Flag for each square on chess board 

SP A ddress of sprite pointer 

SQO Screen positions of squares on chess board 

V() Status of each square on chess board 

X() Row position of each of the five pieces 

Y() Column position of each of the five pieces 

Z$ Current key press 


How VOZ Works 

100-210 Initialize variables and arrays, call board 
set up routines 

220-400 Main game loop: increment number of 
turns, call routines to move marker and 
guess pieces 

410-460 Out of moves, display pieces not guessed 

470-560 End of game: show best score, display full 
uncovered chess board, ask for another 
game 

570-630 Display chessboard 

640-720 Randomly set up pieces on board 


730-930 

940-970 

980-990 

1000-1050 

1060-1100 

1110-1250 

1260-1360 

1370-1450 

1460 


Compute number of attacks on each square 
Display “turns left” box in upper-left 
corner of screen 

Erase message at bottom of screen 
Display first message 
Display second message 
Initialize and position sprites 
Move marker 
Guess a piece 

Display piece name with appropriate color 





FIFTEEN 


YOU ttftY BEGIN 


Glen Fisher 


T his is the classic puzzle where you try to 
arrange 15 numbers in a 4x4 grid. 
When solved, the empty "hole” will be 
at the lower right-hand corner of the grid, with 
the first row reading 1-2-3-4, and so on. When 
you solve the puzzle, the program flashes the 
message “YOU DID IT!" and plays a pleasant 
tune. 





FIFTEEN uses lots of DATA statements to 
build all the custom characters and sprites. 
Sprites are used for the piece that you move, 
while custom characters (and lots of them!) are 
used to display the numbers that are not being 
moved. When you see how "flashy" FIFTEEN 
is, we think you'll agree that all that DATA was 
worth the effort. 


1 PG$ 85 "FIFTEEN " :AU$="GLEN A FISHER" :BG$="JOYSTICK^BUTTON " srem 26017 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 :rem 51784 

100 VX=VIC:CG=VX+8192:SB=CG+2048:VB=VX+3328:VM=48*1024: 

SP-VM+1016 :rem 22029 
110 B=832:CF=B+137 :rem 63038 
120 Rl=58:Cl=72:RO=14:CO=15 :rem 15893 
130 DIM BD(15),TR(16),TL$(15),JD(15),MU(21) :rem 26921 
140 CL$="(blk wht red cyn pur grn blu yel blk wht red cyn pur grn blu 
yel )":DN$="{home 24°down}" :rem 41126 
150 YN$(0)="YES A NO":YN$(1)="{rvs-on>YESIrvs-off} A NO":YN$(2)="YES A {rvs-on> 
NOfrvs-off}" :rem 36106 

160 FOR 1=0 TO 15:READ JD(I):NEXT:DATA 0,0,0,0,0,0,0,2,0,0,0,4,0,3,1,0 
:rem 33649 

170 DEF FNJ(X)=JD(PEEK(JS+X) AND 15):DEF FNB(X)=(PEEK(JS+X) AND 16)=0 
:rem 47281 

180 SID=54272:FOR 1=0 TO 28:POKE SID+I,0:NEXT :rem 58151 
190 FOR 1=1 TO 21:READ MU(I):NEXT :rem 19776 

200 DATA 44,33,50,56,0,44,33,42,44,0,37,30,44,42,33,50,44,33,42,44,0 
:rem 44893 

210 V0=35:V1=1:V2=16:PRINT :rem 9063 

220 POKE 253,VX/256:POKE 254,CG/256 :rem 49546 

230 GOSUB 1580:GOSUB 1650 :rem 4157 

240 GOSUB 1580:FOR 1=0 TO 63:POKE 251,I:POKE 252,I:SYS CF: 

NEXT I :rem 56466 

250 GOSUB 1580:FOR 1=128 TO 128+63:POKE 251,I:POKE 252,I:SYS CF: 

NEXT I :rem 48742 

260 GOSUB 1580:FOR 1=64 TO 127:POKE 251,I:POKE 252,I+128:SYS CF: 

NEXT I :rem 3047 

270 POKE 251,160:POKE 252,160:SYS CF :rem 4176 
280 FOR 1=0 TO 15:READ N:A=SB+64*I :rem 35952 

290 FOR J=0 TO N-l:READ T:POKE A+J,T:GOSUB 1560:NEXT :rem 32917 
44 
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300 FOR J=N TO 63:POKE A+J,OsGOSUB 1560sNEXT :rem 28698 
310 NEXT IsPOKE VIC+16,0 srem 63527 

320 POKE VIC+23,1sPOKE VIC+29,1sPOKE VIC+27,0 srem 6636 

330 T0=(SB/64) AND 255 srem 29413 

340 POKE SP,TOsPOKE VIC+40,15 seem 38522 

350 POKE VIC+1,0sPOKE VIC+3,0:POKE VIC+21,3 srem 41327 

360 FOR 1=1 TO 73sREAD AsA=CG+8*A srem 22673 

370 GOSUB 1580 srem 16088 

380 FOR J=0 TO 7sREAD TsPOKE A+J,TsNEXT srem 3262 
390 NEXT 1 srem 9046 

400 POKE 251#234sPOKE 252,220$SYS CF srem 24555 
420 FOR 1=0 TO 15 srem 1362 
430 READ A$,B$,C$ srem 22284 
440 Z$=MID$(CL$,1+1,1) srem 11095 

450 T$=Z$+"{rvs-on} A (down 6°left) A {rvs-off yel )" srem 15889 
460 TL$(I)=Z$+"{rvs-on 5°space)"+T$+A$+T$+B$+T$+C$+T$+Z$+"{rvs-on 
5°space>" srem 24530 
470 NEXT I srem 11753 

480 POKE SID,32sPOKE SID+2,8sPOKE SID+6,249:POKE SID+4,73 srem 16605 
490 POKE SID+8,32sPOKE SID+12,208sPOKE SID+13,240:POKE SID+11,128 
srem 45970 

500 POKE SID+14,32sPOKE SID+15,7sPOKE SID+19,208sPOKE SID+20,240 
srem 56201 

510 POKE SID+17,8sPOKE SID+18,64 srem 32676 
520 POKE SID+24,15 srem 14106 

530 POKE VIC+17,PEEK(VIC+17) AND NOT 16 srem 49 

540 POKE VIC+24,((VM/1024) AND 15)*16+((CG/2048) AND 7)*2sPOKE 648,VM/256 
srem 28978 

550 PRINT "tclr)"sPOKE VB,0 srem 3787 
560 POKE VIC+17,PEEK(VIC+17) OR 16 srem 11893 
570 POKE VIC+32,0sPOKE VIC+33,0 srem 47477 
580 FOR 1=1 TO 16sTR(I)=1sNEXT srem 26946 

590 FOR 1=15 TO 2 STEP -lsJ=INT(RND(l)*I)+lsT=TR(J)sTR(J)=TR(I)sTR(I)=Ts 
NEXT I srem 9693 

600 FOR 1=0 TO 15sBD(I)=TR(I+1)sIF BD(I)=16 THEN BS=IsBD(I)=0 srem 25974 

610 NEXT I srem 53059 

620 C=0sFOR 1=1 TO 16 srem 640 

630 IF TR(I)<>I THEN T=TR(I)sTR(I)=TR(T)sTR(T)=TsC=C+lsGOTO 630 srem 12181 

640 NEXT I srem 47507 

650 IF (C AND 1)=0 THEN 690 srem 3860 

660 I=INT(RND(1) *16) sIF BD(I)=0 THEN 660 srem 30099 

670 J=INT(RND(1)*16)sIF BD(J)=0 OR I=J THEN 670 srem 4336 

680 T=BD(I)sBD(I)=BD(J)sBD(J)=T srem 57952 

690 R=INT(BS/4)sC=BS-4*RsMV=0 srem 2738 

700 POKE SID+19,208sPOKE SID+14,32sPOKE SID+15,7sPOKE-SID+18,64s 
POKE SID+24,15 srem 44327 

710 PRINT n {home)";TAB(5);"(wht rvs-on O 27°Y P)"; srem 25263 
720 FOR 1=0 TO 3sPRINT srem 19101 

730 PRINT TAB(5);"{wht rvs-on H left down H left down H left down H left 
down H left down H 5°up rvs-off>"; srem 52749 
740 FOR J=0 TO 3 srem 21237 

750 PRINT TL$(BD(4*I+J));"(4°up right)"? srem 53468 
760 NEXT J srem 14432 

770 PRINT "(left wht rvs-on N down left N down left N down left N down 
left N down left N up)" srem 13571 
780 NEXT I srem 63303 
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790 PRINT TAB(5);"{rvs-on L 27°P @ home}" :rem 56899 

800 PRINT "(home)";TAB(12);"^YOU^MAY^BEGIN^" :rem 61108 

810 GET Q$:IF Q$="Q" THEN QU=l:GOTO 1290 ;rem 10165 

820 JD=FNJ(0):IP JD=0 THEN 810 :rem 4229 

830 PRINT "{home}";TAB(12);"(rvs-on 15°Y}" srem 3841 

840 ON JD GOTO 880,1040,850,1070 srem 64766 

850 IF R=0 THEN 810 srem 493 

860 EN=Rl+R*48sBG=EN-48 srem 23399 

870 NR=R-lsNB=BS-4sGOTO 910 srem 60869 

880 IF R=3 THEN 810 srem 44147 

890 EN=Rl+R*48sBG=EN+48 srem 53244 

900 NR=R+1sNB=BS+4sGOTO 910 srem 40431 

910 POKE VIC+39,BD(NB)sPOKE SP+1,T0+BD(NB) srem 47641 

920 POKE VIC,Cl+C*56sPOKE VIC+2,Cl+C*56+CO srem 37785 

930 POKE VIC+3,BG+ROsPOKE VIC+1,BG srem 15767 

940 PRINT LEFT$(DN$,NR*6+2);TAB(6+7*C);TL$(0) srem 55460 

950 SS=SGN(EN-BG) srem 19449 

960 POKE SID+11,129sPOKE SID+18,65 srem 40313 
970 POKE 251,1sPOKE 252,ROsPOKE 253,BGsPOKE 254,ENsSYS CF-3 
980 POKE SID+4,65sPOKE SID+11,128sPOKE SID+18,64 srem 39260 
990 POKE 254,EN-SSsSYS CF-3sPOKE 254,ENsSYS CF-3 srem 46604 
1000 PRINT LEFTS(DN$,R*6+2);TAB(6+7*C);TL$(BD(NB)) srem 47651 
1010 POKE SID+4,73 srem 23905 

1020 R-NRsBD(BS)=BD(NB)sBD(NB)=0sBS=NB srem 9949 

1030 POKE VIC+1,0sPOKE VIC+3,OsGOTO 1230 srem 9748 

1040 IF C=0 THEN 810 srem 53204 

1050 EN=C1+C*56sBG=EN-56 srem 51736 

1060 NC=C-lsNB=BS-lsGOTO 1100 srem 16844 

1070 IF C=3 THEN 810 srem 20041 

1080 EN=C1+C*56 sBG=EN+56 srem 57 88 

1090 NC=C+lsNB=BS+lsGOTO 1100 srem 43372 

1100 POKE VIC+39,BD(NB)sPOKE SP+1,T0+BD(NB) srem 62033 

1110 POKE VIC+2,BG+COsPOKE VIC,BG srem 61956 

1120 POKE VIC+1,Rl+R*48sPOKE VIC+3,R1+R*48+R0 srem 64971 

1130 PRINT LEFT$(DN$,R*6+2);TAB(6+7*NC);TL$(0) srem 21777 

1140 SS=SGN(EN-BG) srem 15055 

1150 POKE SID+11,129sPOKE SID+18,65 srem 56277 

1160 POKE 251,0sPOKE 252,COsPOKE 253,BGsPOKE 254,ENsSYS CF-3 

1170 POKE SID+4,65sPOKE SID+11,128sPOKE SID+18,64 srem 59170 

1180 POKE 254,EN-SSsSYS CF-3sPOKE 254,ENsSYS CF-3 srem 12608 

1190 PRINT LEFT$(DN$,R*6+2);TAB(6+7*C);TL$(BD(NB)) srem 29982 

1200 POKE SID+4,73 srem 967 

1210 C=NCsBD(BS)=BD(NB)sBD(NB)=0sBS=NB srem 26531 
1220 POKE VIC+1,OsPOKE VIC+3,0 srem 49521 
1230 MV=MV+1 srem 23425 

1240 PRINT "{home wht)MOVE"sPRINT MV srem 18236 
1250 FOR 1=0 TO 14sIF BD(I)OI+l THEN 810 srem 33018 
1260 NEXT I srem 38674 
1270 QU=0 srem 57850 

1280 POKE SID+19,OsPOKE SID+14,OsPOKE SID+15,OsPOKE SID+18,65 

1290 T1=0sT2=0sTM=0sMU=lsSl=2sS2=lsAN=1 srem 49423 

1300 IF QU THEN 1390 srem 6985 

1310 POKE SID+18,65 srem 31397 

1320 IF TI<T1 OR QU>0 THEN 1350 srem 51874 

1330 POKE 646,SlsPRINT "{home)";TAB(14);"{rvs-on)YOU A DID A ITl" 
1340 Tl=TI+15sSl=Sl+lsIF Sl>15 THEN Sl=l srem 63657 


srem 17829 


rem 58367 


srem 60249 


srem 15751 
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1350 IF TI<TM THEN 1320 srem 15035 

1360 POKE SID+15,MU(MU)sMU B MU+lsTM»TI+8 srem 6051 

1370 IF MU>21 THEN POKE SID+18,0:GOTO 1390 srem 47453 

1380 GOTO 1320 :rem 35824 

1390 IF TI<T1 OR QU>0 THEN 1420 srem 61910 

1400 POKE 646rSI:PRINT "(home)";TAB(14);"{rvs-on>YOU A DID A ITl" srem 17934 
1410 T1 b TI+15sS1 b S1+1sIF Sl>15 THEN Sl=l srem 54309 
1420 IF TI<=T2 THEN 1440 srem 24210 

1430 PRINT DN$;TAB(11); w {wht}TRY A AGAIN? A ";YN$(AN*S2);"(home)"sS2=l-S2s 
T2=TI+15 srem 24332 

1440 JD°PEEK(JS)sIF (JD AND 16) b 0 THEN 1480 srem 31963 
1450 JD b JD(JD AND 15)sIF JD b 2 THEN AN b 2$S2 b 1sT 2 b 0 srem 17923 
1460 IF JD=4 THEN AN b 1sS2=1sT 2 b 0 srem 14811 
1470 GOTO 1390 srem 61884 

1480 POKE SID+24,0 sIF AN=1 THEN PRINT "(clr}"sGOTO 580 srem 58901 

1490 POKE VIC+17,PEEK(VIC+17) AND NOT 16 srem 42418 

1500 POKE VIC+24,21sPOKE 648,4sPOKE VB,3 srem 41851 

1510 POKE VIC+17 ,PEEK(VIC+17) OR 16 srem 5381 

1520 POKE VIC+21,0sGOTO 60600 srem 5762 

1530 TM b TI+ 60 srem 59394 

1540 IF TI<TM THEN 1540 srem 2516 

1550 RETURN srem 59200 

1560 V2=»V2-1 sIF V2>0 THEN RETURN srem 7224 
1570 V2=16 srem 21144 

1580 PRINT LEFT$("(up rvs-onJSETTING A UP...{22°space}VO+2); srem 14672 
1590 PRINT MID$("{rvs-off> A (rvs-off H rvs-off K rvs-on N)",VI,2) srem 62520 
1600 Vl=Vl-2sIF V1<1 THEN V0=V0-1:V1=7 srem 12282 
1610 RETURN srem 61184 

1620 V2=V2-1sIF V2=0 THEN V2=16sGOSUB 1580 srem 61538 
1630 RETURN srem 48565 
1640 END srem 60206 
1650 Z=0 srem 21825 

1660 READ VsIF V=-l THEN RETURN srem 63160 
1670 POKE B+Z,VsZ=Z+lsGOTO 1660 srem 41593 

1680 DATA 160,255,56,165,254,229,253,48,2,160,1,132,98,166,251 srem 28535 
1690 DATA 24,165,253,101,98,133,253,24,157,0,208,101,252,157 srem 26987 
1700 DATA 2,208,165,253,197,254,240,14,160,255,204,27,212,208 srem 12977 
1710 DATA 251,204,27,212,240,251,208,220,96,176,202,169,0,133 srem 27213 
1720 DATA 98,133,99,133,100,133,101,165,251,10,38,99,10,38 srem 50857 

DATA 99,10,38,99,133,98,24,165,99,101,253,133,99,165,252 srem 17921 
1740 DATA 10,38,101,10,38,101,10,38,101,133,100,24,165,101,101 srem 15919 
1750 DATA 254,133,101,120,169,1,141,13,220,169,51,133,1,160 srem 18886 
1760 DATA 7,177,98,145,100,136,16,249,169,55,133,1,169,129 srem 30458 
1770 DATA 141,13,220,88,96,56,176,171,56,176,170,-1 srem 20449 
1780 DATA 60,255,255,255,255,255,255,255,255,255,255,255,255,240,0,15,240, 
0,15 srem 11491 

1790 DATA 240,0,15,240,0,15,240,0,15,240,0,15,240,0,15,240,0,15,240,0,15, 
240,0 srem 64857 

1800 DATA 15,240,0,15,240,0,15,255,255,255,255,255,255,255,255,255,255,255, 
255 srem 24008 

1810 DATA 35,0,192,0,1,192,0,7,192,0,1,192,0,1,192,0,1,192,0,1,192,0,1,192, 
0,1 srem 23928 

1820 DATA 192,0,1,192,0,1,192,0,7,240 srem 9079 

1830 DATA 35,3,240,0,6,56,0,15,28,0,6,28,0,0,28,0,0,56,0,0,224,0,3,128,0,7, 
0,0 srem 12271 

1840 DATA 14,4,0,14,12,0,15,252 srem 44971 
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1850 DATA 35,3,240,0,6,56,0,15,28,0,6,28,0,0,56,0,1/224,0,0,56,0,0,28,0,6, 
28,0 srem 27172 

1860 DATA 15,28,0,6,56,0,3,240 :rem 50634 

1870 DATA 35,0,24,0,0,56,0,0,120,0,0,248,0,1,184,0,3,56,0,6,56,0,12,56,0, 
15,252 :rem 37596 

1880 DATA 0,0,56,0,0,56,0,0,124 :rem 24158 

1890 DATA 35,15,252,0,14,12,0,14,4,0,14,0,0,15,240,0,15,56,0,0,28,0,0,28,0, 
6,28 :rem 41376 

1900 DATA 0,15,28,0,6,56,0,3,240 :rem 41029 

1910 DATA 35,3,240,0,7,24,0,6,60,0,14,24,0,14,0,0,15,240,0,15,56,0,14,28,0, 
14 :rem 10328 

1920 DATA 28,0,6,28,0,7,56,0,3,240 :rem 18040 

1930 DATA 35,15,252,0,12,24,0,8,48,0,0,96,0,0,224,0,0,192,0,1,192,0,1,192, 
0,3 :rem 55113 

1940 DATA 192,0,3,192,0,3,192,0,1,128 srem 59362 

1950 DATA 35,7,240,0,14,56,0,12,24,0,14,24,0,15,48,0,7,224,0,3,240,0,6,120, 
0,12 :rem 44830 

1960 DATA 56,0,12,24,0,14,56,0,7,240 :rem 17642 

1970 DATA 35,3,240,0,7,56,0,14,24,0,14,28,0,14,28,0,7,60,0,3,252,0,0,28,0, 
6,28 srem 24616 

1980 DATA 0,15,24,0,6,56,0,3,240 :cem 54452 

1990 DATA 35,24,63,0,56,115,128,248,97,128,56,225,192,56,225,192,56,225, 
192,56 srem 48143 

2000 DATA 225,192,56,225,192,56,225,192,56,97,128,56,115,128,254,63 
srem 63817 

2010 DATA 35,12,12,0,28,28,0,124,124,0,28,28,0,28,28,0,28,28,0,28,28,0,28, 
28,0 srem 10673 

2020 DATA 28,28,0,28,28,0,28,28,0,127,127 srem 2086 

2030 DATA 36,24,63,0,56,99,128,248,241,192,56,97,192,56,1,192,56,3,128,56, 
14,0 srem 54232 

2040 DATA 56,56,0,56,112,0,56,224,64,56,224,192,254,255,192 srem 43526 

2050 DATA 35,24,63,0,56,99,128,248,241,192,56,97,192,56,3,128,56,30,0,56,3, 
128 srem 58451 

2060 DATA 56,1,192,56,97,192,56,241,192,56,99,128,254,63 srem 16727 

2070 DATA 36,24,1,128,56,3,128,248,7,128,56,15,128,56,27,128,56,51,128,56, 
99 srem 13573 

128,56,195,128,56,255,192,56,3,128,56,3,128,254,7,192 srem 28930 
35,24,255,192,56,224,192,248,224,64,56,224,0,56,255,0,56,243,128, 
srem 17273 

192,56,1,192,56,97,192,56,241,192,56,99,128,254,63 srem 54988 
0,0,128,128,128,128,128,128,0 srem 49643 
27,128,128,128,0,0,0,0,128 srem 42673 
28,128,128,0,0,0,0,0,0 srem 1190 
29,128,128,0,0,0,128,128,128 srem 55819 
30,0,0,0,0,0,0,128,0 srem 55378 
31,0,128,0,0,0,0,0,0 srem 52324 
60,1,0,0,0,0,0,0,0 srem 22266 
61,0,1,0,0,0,0,0,0 srem 4680 
62,128,0,0,0,128,128,128,128 srem 24065 
64,0,0,0,0,0,0,1,3 srem 1809 
65,0,0,0,0,0,0,128,128 srem 26395 
66,0,0,0,0,0,0,7,12 srem 57891 
67,0,0,0,0,0,0,224,48 srem 30368 
68,0,0,0,0,0,0,7,14 srem 13221 
69,0,0,0,0,0,0,224,112 srem 40588 


2080 DATA 
2090 DATA 
56,1 
2100 DATA 
2110 DATA 
2120 DATA 
2130 DATA 
2140 DATA 
2150 DATA 
2160 DATA 
2170 DATA 
2180 DATA 
2190 DATA 
2200 DATA 
2210 DATA 
2220 DATA 
2230 DATA 
2240 DATA 
2250 DATA 



2260 DATA 70,0,0,0,0,0,0,48,112 trem 36921 

2270 DATA 71,0,0,0,0,0,0,31,24 trem 13689 

2280 DATA 72,0,0,0,0,0,0,248,24 trem 5030 

2290 DATA 73,0,0,0,0,0,0,31,28 trem 45511 

2300 DATA 74,0,0,0,0,0,0,248,48 trem 3913 

2310 DATA 75,0,0,0,0,0,0,15,28 trem 36299 

2320 DATA 76,0,0,0,0,0,0,126,231 trem 28166 

2330 DATA 77,0,0,0,0,0,0,24,56 trem 59232 

2340 DATA 78,0,0,0,0,0,0,126,199 trem 62660 

2350 DATA 79,0,0,0,0,0,0,3,7 trem 19303 

2360 DATA 80,3,15,0,0,0,0,0,0 trem 24113 

2370 DATA 81,128,224,0,0,0,0,0,0 trem 64922 

2380 DATA 82,12,7,0,0,0,0,0,0 trem 11937 

2390 DATA 83,112,252,0,0,0,0,0,0 trem 40592 

2400 DATA 84,14,7,0,0,0,0,0,0 trem 56482 

2410 DATA 85,112,224,0,0,0,0,0,0 trem 20355 

2420 DATA 86,112,248,0,0,0,0,0,0 trem 41762 

2430 DATA 87,7,15,0,0,0,0,0,0 trem 52172 

2440 DATA 88,24,248,0,0,0,0,0,0 trem 38190 

2450 DATA 89,28,31,0,0,0,0,0,0 trem 17967 

2460 DATA 90,128,0,0,0,0,0,0,0 trem 9091 

2470 DATA 91,28,15,0,0,0,0,0,0 trem 33390 

2480 DATA 92,231,126,0,0,0,0,0,0 trem 3393 

2490 DATA 93,56,254,0,0,0,0,0,0 trem 25485 

2500 DATA 94,199,126,0,0,0,0,0,0 trem 48001 

2510 DATA 95,7,3,0,0,0,0,0,0 trem 38719 

2520 DATA 96,0,0,0,0,0,0,49,113 trem 65478 

2530 DATA 97,0,0,0,0,0,0,255,193 trem 41985 

2540 DATA 98,15,3,3,3,3,3,3,3 trem 15001 

2550 DATA 99,128,128,128,128,128,128,128,128 trem 28677 

2560 DATA 100,30,12,0,0,1,7,14,28 trem 45224 

2570 DATA 101,56,56,56,112,192,0,0,8 trem 16153 

2580 DATA 102,30,12,0,3,0,0,12,30 trem 55735 

2590 DATA 103,56,56,112,192,112,56,56,56 trem 42163 

2600 DATA 104,0,1,3,6,12,24,31,0 trem 64860 

2610 DATA 105,240,240,112,112,112,112,248,112 trem 3839 

2620 DATA 106,28,28,31,30,0,0,12,30 trem 32631 

2630 DATA 107,8,0,224,112,56,56,56,56 trem 43319 

2640 DATA 108,12,28,28,31,30,28,28,12 trem 22390 

2650 DATA 109,120,48,0,224,112,56,56,56 trem 45431 

2660 DATA 110,16,0,1,1,3,3,7,7 trem 36399 

2670 DATA 111,96,192,192,128,128,128,128,128 trem 5939 

2680 DATA 112,113,253,0,0,0,0,0,0 trem 39896 

2690 DATA 113,193,255,0,0,0,0,0,0 trem 37067 

2700 DATA 114,24,28,30,15,7,12,24,24 trem 24976 

2710 DATA 115,48,48,96,192,224,240,112,48 trem 1911 

2720 DATA 116,28,28,28,14,7,0,12,30 trem 56242 

2730 DATA 117,48,56,56,120,248,56,56,48 trem 1951 

2740 DATA 118,240,113,113,113,113,113,113,112 trem 52586 

2750 DATA 119,195,195,195,195,195,195,195,195 trem 39658 

2760 DATA 120,248,56,56,56,56,56,56,56 trem 21696 

2770 DATA 121,241,112,112,112,112,112,112,113 trem 45275 

2780 DATA 122,227,195,3,7,28,112,224,192 trem 7734 

2790 DATA 123,227,195,7,60,7,3,195,227 trem 29773 

2800 DATA 124,240,112,112,112,112,113,113,112 trem 38437 
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2810 DATA 125,15,31,55,103,199,135,255,7 srem 38789 

2820 DATA 126,241,113,113,113,112,112,112,113 srem 6225 

2830 DATA 127,192,192,254,231,3,3,195,227 srem 26088 

2840 DATA "{4°space>","{4°space}","{4 0 space)" :rem 10 

2850 DATA " a (*A} a "," a {IT>*"'" a {PQ> a " srem 55463 

2860 DATA " A (BE) A "," A {0G> A "," A (YX> A " srem 57742 

2870 DATA " A {BE} A "," A {+M} A "," A {RU) A " srem 24430 

2880 DATA " AA (F> A "," A {££> A "," AA {V} A " srem 53951 

2890 DATA " A (IH} A "," A {NQ> A "," A {RU> A " srem 8391 

2900 DATA " A (DC) A "," A (DZ} A "," A {TU} A " srem 12540 

2910 DATA " A (GJ} A "," A {SP) A ",” A {*Z} A " srem 16743 

2920 DATA " A {KE} A "," A {RW> A "," A {+U> A " srem 10020 

2930 DATA " A (DEJ A "," A {HJ> A "," A {RU) A " srem 50323 

2940 DATA " A (FL) A ","<{LY}8","={S z > a" :rem 13402 

2950 DATA " A {2°M} A "," A (2°U} A "," A (2°-} A " srem 57698 

2960 DATA " A {FN> A ","<{00}[","={AE}£" srem 56441 

2970 DATA " A {FN> A ","<{OF}J","={S pi} A " srem 50503 

2980 DATA " A {FO> A ","<CCX}f","=(SW>srem 3618 

2990 DATA " A {shift-space KA)","<(VB}>","=(S pi) A " srem 36083 

345 lines, proof number = 24529 

Reminder. Now be sure to enter the standard 

framework lines 60000 to 62200. See page XV 


Important Variables in FIFTEEN 

AN Play again flag 
B Address of machine language 
BD() Contents (tile) of each board location 
BG Beginning position of sprite to be moved 
BS Board position of empty square 

C Current screen column of empty square 

Cl Base X-coordinate for sprites 
CF Address of machine language subroutines 
CG Base address of programmable character set 
CL$ Color codes of the 15 tiles 
DN$ Cursor-control string 
EN Ending position of sprite to be moved for 
machine language 

VX Base address of C-64 character set in ROM 
JD Current direction of tile movement 
JD() Array holds direction of tile movement for each 
joystick position 


MU Pointer to current note of song 

MU() Array holds pitch values of notes in song 

MV Current move number 

NB New board position of blank space 

NC New column of blank space 

NR New row of blank space 

Q$ Current key press 

QU Flag for game won 

R Current screen row of empty square 

R1 Base Y-coordinate for sprites 

SB Address of sprite storage 

TO Current sprite block 

TL$() Programmable characters for the tiles 

VB VIC base memory address 

VM Starting address of screen memory 


How FIFTEEN Works 

100-470 Initialize variables, arrays, sprites and 
programmable characters 
480-570 Set up SID and VIC chips 
580-690 Randomly set up the 15 tiles on the game 

board, making sure the arrangement can be 
solved. 

700-800 Display game board and tiles 
810-840 Main loop: read joystick value and branch 
to tile movement sequence 
850-1030 Vertical movement of tiles 


1040-1220 Horizontal movement of tiles 
1230-1260 Increment number of moves and check for 
winning combination of tiles 
1270-1520 Play tune if game was won, ask for another 
game 

1580-1610 Setting up message 
1650-1770 Routine and DATA to POKE machine 
language into memory 

1780-2990 Data for sprites and programmable 
characters 





RECALL 


VOU UNCO'.'ER: ft l ft HD C 


Julia Hallford 


R ECALL is a one- or two-player memory 
game. A board with 64 squares is dis¬ 
played with graphic symbols hidden 
under each square. There are 32 pairs of sym¬ 
bols that you try to uncover. Use the joystick to 
move the blinking cursor to your first selection, 
and press the button, which will uncover that 
symbol. Next, move to the second square you 
want to uncover and press the button again. 
Although it's difficult at first to find any match- 


1 2 3 4 5 6 7 8 



ing pairs of symbols, as you uncover matching 
pairs those squares are blanked out and re¬ 
moved from play. Since there are now fewer 
squares to choose, your chances get better. 
Also, as you go along, you begin to remember 
where certain symbols are hidden, which also 
makes it easier to find new matching pairs. 

Note: RECALL uses a joystick. 


1 PG$="RECALL"sAU$="JULIA*HALLFORD"sBG$="JOYSTICK*BUTTON" :rem 401 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 26JUL84 
90 GOTO 62000 :rem 51784 

100 DIM A(64),B(8,8),C(64),G(4),N$(4):TB=10 :rem 56517 

110 GOSUB 1360 srem 43483 

120 TC=CM—CRT :rem 9971 

130 SP$="{38°space>" srem 26327 

140 TX=0:TY=0 :rem 41858 

150 PRINT "{clr}HOW*MANY*PLAYERS*? n sPRINT srem 24052 
160 IN=1:JT=1:JW=4:JM=4 srem 7738 

170 PR$="*l{4°space}2{4°space}3{4 0 space}4" sGOSUB 60200 srem 58705 
180 P=IN srem 64328 

190 IF P=1 THEN N$(1)= "YOU"sGOTO 240 srem 34637 

200 PRINT "{clr 3°down}ENTER*NAMES*0F*PLAYERS s(down)" srem 30714 
210 FOR 1=1 TO P srem 64777 

220 PRINT "PLAYER*#";I; " s *"; sGOSUB 60000 srem 46813 
225 IF IN$="" THEN IN$="PLAYER"+STR$(I) srem 29878 
230 N$(I)=IN$sNEXT I srem 41586 

240 PRINT "(clr blu 5°down}" TAB(TB) "{A*R*R*R*R*R*R*R*S>" srem 47135 
250 FOR H=1 TO 7SPRINT TAB(TB) 
srem 42962 

260 PRINT TAB(TB) "{Q*+*+*+*+*+*+*+*W>"sNEXT H srem 21008 
270 PRINT TAB(TB) "{->*{-}*{-}*{->*{-}*{->*(-}*{-}*(->" srem 53270 
280 PRINT TAB(TB) "{Z*E*E*E*E*E*E*E*X home 4°down ll°space}"; srem 39194 
290 PRINT "(blu)"; srem 48231 

300 FOR H=1 TO 8sPRINT "(left)" H;sNEXT HsPRINT "(down)" srem 52585 

310 FOR X=1 TO 8sPRINT TAB(TB-1)y"(blu)";CHR$(64+X); srem 46246 

320 FOR Y=1 TO 8sPRINT "(blu - yel rvs-on) A (rvs-off)";sNEXT Y srem 17431 

330 PRINT "(down) "sNEXT X srem 15940 

340 PRINT "{ pur >"; srem 19494 
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350 PRINT "{home)" TAB(TB) "{rvs-on}SETTING.UP.BOARD{rvs-on}" :rem 32152 
360 RESTORE :cem 60450 

370 FOR S B 1 TO 64:READ A(S) $C(S) =SsNEXT S :rem 28841 

380 FOR S=1 TO 64$H B INT(64*RND(1>)+1 srein 34790 

390 TsCCS) :C(S) s C(H) sC(H) =TsNEXT S :rem 29928 

400 L=CRT+TB+l : f4*40 srem 19677 

410 FOR 1=1 TO 8 srem 12386 

420 FOR J»1 TO 8 srem 50717 

430 B(I f J)»L+2*J+80*I-2 srem 53700 

440 NEXT J,I srem 64287 

450 FOR 1=1 TO PsG(I)=0 sNEXT I srem 10897 

460 PRINT "{home}"jSP$sN=lsPL B lsM=0 srem 32225 

470 SX°TXs S Y=TY s S P=1s EN=2 srem 33896 

480 GC b FRE(0)sprint n (home)";N?(PL); srem 22510 

490 PRINT ".UNCOVER";sIF P>1 THEN PRINT "S"; srem 36044 

500 PRINT "s/j srem 3077 

510 GOSUB 1170 srem 55463 

520 W=SY+1sX b SX+ 1 srem 19876 

530 PRINT CHR$(W+64);CHR$(48+X); srem 30019 

540 GOTO 560 srem 52019 

550 I»CRT+LEN (N $ (PL)) 4-9 s FOR J B I TO I+3sPOKE J,32sNEXT Js 
GOTO 480 srem 37025 

560 IF PEEK(B(W,X))<>160 THEN 550 srem 6245 
570 POKE B(W,X),A(C(X+8*(W-l))) srem 4189 
580 POKE TC+B(W,X),1 srem 42567 
590 FOR DE b 1 TO IOOsNEXT DE srem 7278 
600 TX b SXsTY b SYsSP b 0sEN b 3 srem 3478 
610 SX=TX+lsIF SX<8 THEN 630 srem 56247 
620 SX=TX-1 srem 17153 

630 PRINT "{home}" TAB(LEN(N$(PL))+14+(P=1)) "AND."; srem 7085 
640 GOSUB 1170 srem 37205 
650 Y b SY+1sZ=SX+ 1 srem 52432 

660 PRINT CHR$(Y+64);CHR$(48+Z);sGOTO 680 srem 44584 
670 I=CRT+LEN(N$(PL))+17sFOR J=I TO I+3sPOKE J,32sNEXT Js 
GOTO 630 srem 62287 

680 IF PEEK(B(Y,Z)) 0160 THEN 670 srem 54960 

690 POKE B(Y,Z),A(C(Z+8*(Y-l))) srem 20008 

700 POKE TC+B(Y,Z),1 srem 22470 

710 FOR DE b 1 TO 1000sNEXT DE srem 59650 

720 IF PEEK(B(Wf X)) OPEEK(B(Y,Z)) THEN 780 srem 53196 

730 POKE B(W,X),32sPOKE B(Y f Z) r 32 srem 13566 

740 M b M+1sG(PL) b G(PL)+ 1 srem 53928 

750 IF M<32 THEN 810 srem 41309 

760 POKE VIC+21 f 0sIF P»1 THEN PRINT "{clr wht 4°down>";s 
GOTO 830 srem 56347 
770 GOSUB 1000sGOTO 880 srem 39491 
780 POKE B(WrX),160:POKE B(Y,Z) f 160 srem 17173 
790 POKE TC+B(W,X) , 1 sPOKE TC+B(Y f Z) f 7 srem 60941 
800 PL=PL+lsIF PL>P THEN PL=1 srem 9348 
810 PRINT "{home)";SP$ srem 29671 
820 N b N+1sGOTO 470 srem 59675 
830 IF Z$<>"Q" THEN 860 srem 36848 

840 PRINT "YOU^RESIGNED <S AFTER"}N-1; "TURNS, {down}" srem 13961 
850 GOTO 880 srem 61288 

860 PRINT "{clr 4 0 down}ITTOOK A YOU" N "TURNS.TO^CLEAR^THE" srem 57211 
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870 PRINT "BOARDJfITH" M "MATCHES." srem 34789 

880 PRINT:IN=1:JT=13sJW=5sJM=2:PR$-"PLAY /s AGAIN?/> < sYES / .^NO": 

GOSUB 60200 :rem 56284 
890 IP INOl THEN 910 srem 62982 
900 GOTO 240 srem 52664 
910 GOTO 60600 srem 32811 

920 DATA 37,27,29,81,87,34,35,36 srem 30777 
930 DATA 30,94,31,65,83,90,88,113 srem 37678 
940 DATA 78,77,127,60,62,86,114,115 srem 34342 
950 DATA 107,43,42,61,91,0,93,64 srem 38614 
960 DATA 37,27,29,81,87,34,35,36 srem 33086 
970 DATA 30,94,31,65,83,90,88,113 srem 50772 
980 DATA 78,77,127,60,62,86,114,115 srem 61168 
990 DATA 107,43,42,61,91,0,93,64,-1 srem 37712 
1000 PRINT "{clr pur down)AFTER*";N-l;" A TURNS:" srem 54283 
1010 PRINT "{2°down}" srem 29975 
1020 LN=0sFOR Z=1 TO P srem 52643 
1030 T-LEN(N$(Z)):IF T>LN THEN LN=T srem 29511 
1040 NEXT Z srem 49581 

1050 PRINT "{wht)"?TAB(ABS(LN-4));"NAME";TAB(LN+13);"MATCHES" srem 60263 
1060 PRINT "{blu>"; srem 52647 

1070 FOR Z=1 TO LN+21SPRINT "(C}";:NEXT Z srem 18223 

1080 PRINT "tyelJ" srem 19867 

1090 FOR Z=1 TO P srem 41112 

1100 T=LEN(N$(Z)):M=G(Z) srem 58791 

1110 PRINT TAB(LN-T);N$(Z);TAB(LN+14); srem 23419 

1120 IF M=0 THEN PRINT "NONE":GOTO 1140 srem 33831 

1130 PRINT M srem 15656 

1140 NEXT Z srem 1603 

1150 PRINT srem 39872 

1160 RETURN srem 5134 

1170 ZJ=TI+15:ZT=TI:ZC=l:GOSUB 1320:POKE VIC+21,EN srem 11401 
1180 IF (PEEK(JS) AND 16)=0 THEN 1350 srem 31425 
1190 GET Z$:IF Z$="Q" THEN 760 srem 26600 

1200 IF ZT<=TI THEN POKE VIC+39+SP,ZC:ZT=TI+15:ZC=7-ZC srem 20115 

1210 JV-PEEK(JS) AND 15:IF JV=15 THEN ZJ=0:GOTO 1180 srem 16498 

1220 IF TI<ZJ THEN 1180 srem 51232 

1230 JV=15-JV srem 15032 

1240 XM=XM(JV):YM=YM(JV) srem 63675 

1250 SX=SX+XM srem 18414 

1260 IF SX>7 THEN SX=0 srem 17369 

1270 IF SX<0 THEN SX=7 srem 22055 

1280 SY=SY+YM srem 39024 

1290 IF SY>7 THEN SY=0 srem 8679 

1300 IF SY<0 THEN SY*7 srem 39212 

1310 GOSUB 1320:GOTO 1180 srem 50427 

1320 POKE VIC+SP*2,BX+SX*16 srem 14136 

1330 POKE VIC+1+SP*2,BY+SY*16 srem 53923 

1340 ZJ=TI+15:ZC=1:RETURN srem 2559 

1350 POKE VIC+39+SP,IsRETURN srem 16985 

1360 PRINT "(clrJSETTING^UP..." srem 37060 

1370 READ VsIF VO-1 THEN 1370 srem 3249 

1380 B=13*64 srem 39054 

1390 FOR Z=0 TO 63 srem 469 

1400 READ V:POKE B+Z,V srem 3633 
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1410 NEXT Z :rem 44805 

1420 BX=107sBY=93 srem 4152 

1430 POKE VIC,BX:POKE VIC+1,BY srem 13399 

1440 POKE VIC+2 r BXSPOKE VIC+3,BY srem 64681 

1450 POKE VIC+39,1sPOKE 2040,13 srem 23117 

1460 POKE VIC+40,1sPOKE 2041,13 srem 26299 

1470 POKE VIC+16,0sPOKE VIC+27,0 srem 46958 

1480 DIM XM(10),YM(10) srem 22508 

1490 FOR Z=1 TO 10 srem 38392 

1500 READ XM(Z),YM(Z)sNEXT Z srem 61241 

1510 RETURN srem 39014 

1520 DATA 255,255,192,255,255,192,192,0,192,192,0,192,192,0,192 srem 33161 
1530 DATA 192,0,192,192,0,192,192,0,192,192,0,192,192,0,192 srem 25512 
1540 DATA 192,0,192,192,0,192,192,0,192,192,0,192,192,0,192 srem 25679 
1550 DATA 192,0,192,255,255,192,255,255,192,0,0,0,0,0,0,0 srem 10340 
1560 DATA 0,0,0 srem 234 

1570 DATA 0,-1,0,1,0,0,-1,0,-1,-1,-1,1 srem 9119 
1580 DATA 0,0,1,0,1,-1,1,1 srem 423 

206 lines, proo£ number - 16952 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in RECALL 

A() Array of characters shown when card is revealed 
B() Screen matrix for playing board (screen memory 
locations) 

BX Locates the “cursor box” 

BY Locates the “cursor box' 1 

C() Randomize the matrix board 

EN “Cursor box" color toggle 

G() Number of matches for each player 
JV Temporary joystick value for blinking cursor 

routine 


M Number of matches 

N Number of turns 

N$() Players' names 

P Number of players 

PL Current player number 

SP Used for blinking cursor routine 

SP$ String of 38 spaces 

SX X-coordinate for blinking cursor routine 

SY Y-coordinate for blinking cursor routine 

TC Screen location constant 


How RECALL Works 

100-460 Set up number of players, their names, and 
playing board 

470-750 Main program loop. Input player's position 

selections, display movements on screen, 
and whether tne selections match or not. 

760-900 Play again? 


920-990 Data table for characters to be hidden, 
found, and displayed on screen 
1000-1160 Print final standings. 

1170-1310 Blink and move “cursor box" 

1320-1350 Plot a sprite's location 
1360-1580 Set up screen and sprite data 




CONTACT 


George Leotti 


C ONTACT is a rather complex dice game 
for up to six players. Using six dice, the 
object is to score 5,000 points or roll a 
straight on your first roll of a turn. (A straight is 
getting the values 1 through 6 all in one roll, 
although not necessarily in order.) To under¬ 
stand the rules of CONTACT, there are some 
terms that need to be explained. A triple is 
three-of-a-kind, i.e., three dice with the same 
value. A counter is a one, a five, or a triple . Each 
turn consists of one or more rolls of the dice. 
You keep rolling the dice until you decide to 
stop, or until you get a roll with no counters in 
it. 

After each roll of the dice, the C-64 checks for 
counters. If you fail to roll at least one new 
counter you lose all the points you made in the 
previous rolls, and the next player gets to roll. If 
you roll a new counter, you may roll the dice 
again. Once you choose to roll again, you pick 
one or more of your newly rolled counters to 
keep as part of your score. (Any dice you had 
previously kept are automatically kept for you 
as well.) However, you are never allowed to 
keep two 5s. 

Next, the dice you haven't kept yet are rolled 
again. This means that each roll, you have 
fewer dice to roll. Once again, if you don’t roll 

Counter Number in a single roll 

Is one or two 

three 
four 
five 
six 

5s one or two 

three 
four 
five 
six 

Triples one or two 


The total number of points per turn is the 
sum of the points in the previous rolls (dis- 



any new counters you lose your turn and the 
points you made in it. You keep rolling as long 
as you can roll counters, or a "contact," but 
more about that later. 

In the first roll of a turn there are some spe¬ 
cial possibilities that can’t happen any other 
time. A straight at this time wins the game. A 
triple-2 (three 2s) lets you roll all six dice again, 
as a new “first roll." If you manage to make all 
six dice counters at the same time (not neces¬ 
sarily from the same roll) you make contact, 
and get a new first roll of all six dice. 

When you get a new first roll, either with a 
triple-2 or by making contact, the counters you 
had are remembered, and count toward your 
score for the turn. In addition, all the things 
that may happen on your first roll may happen 
on the new first roll (even though it isn’t really 
the first roll of your turn). So, a straight will win 
the game, while triple-2s will let you score 
again. 

If you have three 2s, you can enter a 0 when 
the computer asks which dice you want to keep. 
In this case, it will roll all the dice again. 
Scoring : Your turn ends when you fail to roll 
new counters, and you lose all points for that 
turn. Otherwise, the counters are scored as fol¬ 
lows: 

Score for each set 

100 points 
1,000 
1,100 
1,200 
2,000 

50 

500 

550 

600 

1,000 

100 times the number rolled 
(e.g., triple-2 is 200 points, 
triple-3 is 300) 

played in the score box) plus any new points in 
the current roll. 
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1 PG$="CONTACT"sAU$="GEORGE a LEOTTI" sBG$="RETURN" :rem 23161 

3 s 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 26JUL84 
90 GOTO 62000 srem 51784 

100 FOR 1=0 TO 6:READ D$(I)sNEXTsCR$=CHR$(13)+"{down}" srem 11862 
110 POKE VIC+32,5:POKE VIC+33,11sPRINT "(clr £ur>" :rem 3559 
120 C$="(home 8°down 13°right}***CONTACT***":CL$="{home 13°down>": 

FOR J=1 TO 3 srem 56033 

130 FOR 1=1 TO 19sCL$=CL$+" A "sNEXT sCL$=CL$+CR$ sNEXT sCL$=CL$+LEFT$(CL$,14) 
:rem 13281 

140 PRINT "(clr wht 2°down}HOW A MANY A PLAYERS? A ";sGOSUB 60000 srem 33345 

145 IF IN$=“" THEN IN$="1" srem 49133 

150 N=VAL(IN$)sIF IN$="Q" THEN 60600 srem 36310 

160 IF N>6 OR N<1 THEN 140 srem 55398 

170 FOR 1=1 TO N srem 46537 

180 PRINT "NAME A OF A PLAYER" I "? A ";sGOSUB 60000sP$(I)=IN$ srem 16077 
190 IF IN$="" THEN P$(I)="PLAYER"+STRS(I) srem 63366 
200 IF LEN <P$ (I)) >9 THEN PRINT "NINE A LETTERS A OR A LESS, ^PLEASE{down} " s 
GOTO 180 srem 7593 
210 NEXTsIF N>5 THEN 240 srem 49772 

220 PRINT "CAN a I a PLAY a TOO? a ";sGOSUB 60000sIF LEFT$(IN$,1)="N" THEN 
240 srem 21859 

230 N=N+1sP$(N)="C64" srem 61218 

240 PRINT "(clr}"sX=RND(-TI) srem 20320 

250 GOSUB 1740sGOSUB 1690 srem 53705 

260 PRINT LEFT$(CL$,11);"{pur} A POINTS A AFTER"SPRINT " a LAST a ROLL s";SC; 

"(rvs-off left) AAA " srem 37761 
270 PRINT CL $ sIF S%(P)>=5000 THEN 1020 srem 10371 
280 T=0sP=P+lsIF P>N THEN P=1 srem 32291 
290 GOSUB 1600sGOSUB 1690 srem 14976 

300 R=1sK=0sFOR 1=1 TO 6sD%(I)=6*RND(1)+1sP%(I)=D%(I)sK=K OR 2tD%(I)s 
NEXT srem 33738 

310 GOSUB 1830sT=0sIF K=126 THEN 1010 srem 59246 
320 IF P$(P)="C64" THEN 1080 srem 31779 

330 J=0sK=0sFOR 1=1 TO 6sT%(I)=P%(I)sIF (P%(I) AND 3)=1 THEN 
J=J+1 srem 58817 

340 IF P%(I)=0 THEN K=K+1 srem 28313 
350 NEXTsIF J+K=6 THEN 420 srem 14184 

360 FOR X=1 TO 4sFOR Y=X+1 TO 5sFOR Z=Y+1 TO 6 srem 35681 
370 IF T%(X)=0 OR (T%(X) AND 3)=1 THEN 390 srem 54093 
380 IF T%(X)=T%(Y) AND T%(X)=T%(Z) THEN J=J+3sT%(X)=0$T%(Y)=0s 
T%(Z)=0 srem 1875 

390 NEXT Z,Y,XsIF J+K=6 THEN 420 srem 55413 
400 IF J THEN 440 srem 48048 

410 PRINT CL$ "{yel rvs-on)NOTHING a THAT a ROLL{ rvs-off)"sGOSUB 1070sSC=0s 
GOTO 250 srem 54618 
420 GOSUB 1890sT=l srem 48715 
430 GOTO 470 srem 40955 

440 PRINT CL$ n {yel>DO A YOU A WANT" CR$ "TO a ROLL a AGAIN" CR$P$(P) "? A {whtJ";s 
GOSUB 60000 srem 61511 
450 IF IN$="Q" THEN 60600 srem 55706 
460 IF LEFT$(IN$,1)<>"N" THEN 600 srem 3129 

470 K=0sFOR X=1 TO 4sFOR Y=X+1 TO 5sFOR Z=Y+1 TO 6 srem 56830 
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480 IF P%(X)=P%(Y) AND P%(X)=P%(Z) THEN K=P%(X) :P%(X) =0:P%(Y) =0: 

P%(Z)=0 srem 41896 

490 IF K=1 THEN SC=SC+1000sK=0 srem 14152 

500 SC=SC+K*100sK=0sNEXT Z,Y r X srem 25427 

510 FOR 1=1 TO 6sIF P%(I)=1 THEN SC=SC+100 srem 17330 

520 IF P%(I)=5 THEN SC=SC+50 srem 64740 

530 NEXT srem 12529 

540 IF T=0 THEN 590 srem 50533 

550 PRINT LEFT$(CL$/12)?TAB(11)?"{pur>";SC srem 27310 
560 PRINT CL$ "{yelJDO*YOU*WANT*TO" CR$ "KEEP,.ROLLING?*{wht}"; s 
60SUB 60000 srem 62030 
570 IF IN$="Q" THEN 60600 srem .55981 

580 IF LEFT$(IN$ r l)<>“N" THEN P=P-lsGOTO 250 srem 14896 
590 S% (P) =S% (P) +SC‘sSC=0sGOTO 250 srem 7517 

600 PRINT CL? "{yel}WHICH^DICE^DO" CR$ "YOU a WANT a TO" CR$ "KEEP?„{wht)" j s 
GOSUB 60000 srem 20968 
610 IF IN?="Q" THEN 60600 srem 56462 
620 IF IN$="" THEN 600 srem 45440 
630 IF IN$<>"0" THEN 690 srem 17186 

640 IF R>1 THEN PRINT CL$ "{red>FIRST A ROLL*ONLY"sGOSUB 1070s 
GOTO 440 srem 33775 

650 FOR X=1 TO 4sFOR Y=X+1 TO 5sFOR Z=Y+1 TO 6 srem 63851 

660 IF P%(X)<>P%(Y) OR P%(X)OP%(Z) OR P%(X)<>2 THEN 680 srem 699 

670 X=4sNEXT XsPRINT CL?sGOTO 300 srem 13755 

680 NEXT Z?YfXsPRINT CL? "(redJYOU^DON 1 T^HAVE" CR$ "THREE«TWOS"s 
GOSUB 1070sGOTO 440 srem 9584 

690 K=LEN(IN $)s FOR 1=1 TO KsIF P%(VAL(MID?(IN?,1,1)))=0 THEN I=KsNEXTs 
GOTO 600 srem 31546 

700 FOR J=1 TO KsIF J=I THEN 720 srem 51273 
710 IF MID?(IN?,J,1)=MID?(IN?,I,1) THEN J=KsI=KsNEXTsNEXTs 
GOTO 600 srem 55334 

720 NEXTsNEXTsON K GOTO 740,800,840,890,890 srem 19925 
730 GOTO 440 srem 19759 

740 K=P%(VAL(IN$))sIF K=1 OR K=5 THEN 760 srem 61040 
750 PRINT CL? "{red)YOU,.CAN* T^KEEP" CR? "ONE" K "1" sGOSUB 1070s 
GOTO 440 srem 26580 
760 P%(VAL(IN?))=0 srem 25901 
770 IF K=1 THEN SC=SC+100sGOTO 790 srem 56502 
780 SC=SC+50 srem 60115 
790 GOTO 940 srem 22308 

800 IF P%(VAL(LEFT?(IN?,1)>>=1 AND P%(VAL(RIGHT?(IN?,1)))=1 THEN 
830 srem 9744 

810 PRINT CL? "{red>YOU^HAVE^TO" CR? "HAVE^THREE^OF" CR? "OF^A^KINDl" 
srem 8116 

820 GOSUB 1070sGOTO 440 srem 60991 

830 P%<VAL<LEFT?(IN?,l)))=0sP%<VAL(RIGHT?(IN?,l)))=0sSC=SC+200s 
GOTO 940 srem 16857 
840 K=P%(VAL(LEFT?(IN?,1))) srem 19780 

850 IF K=P%(VAL(MID?(IN$,2,1))) AND K=P%(VAL(RIGHT?(IN?,1))) THEN 
870 srem 32732 

860 PRINT CL? "tredJTHE^THREE^DICE" CR? "MUST^MATCH1"sGOSUB 1070s 
GOTO 440 srem 57162 

870 FOR 1=1 TO 3sP%(VAL(MID?(IN?,I,l)))=0:NEXTsIF K=1 THEN SC=SC+1000s 
GOTO 940 srem 2906 
880 SC=SC+K*100sGOTO 940 srem 39481 
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890 FOR 1=1 TO K:IF P%(VAL(MID$(IN$,1,1)))<>1 THEN I=K:NEXT: 

GOTO 910 srem 2462 
900 NEXT:GOTO 920 :rem 14893 

910 PRINT CL$ "(rjjd) YOU a MAY a ONLY" CR$ "KEEP" K "ONES":GOSUB 1070s 
GOTO 440 srem 3021 

920 FOR 1=1 TO K:P%(VAL(MID$(IN$,I,1)))=0:NEXT:IF K=5 THEN SC=SC+1200s 
GOTO 940 srem 4820 
930 SC=SC+1100 srem 3199 

940 PRINT LEFT$(CL$,12)TAB(11) "{pur>" SCsFOR 1=1 TO 6:IF P%(I) THEN 
D%(I)=0 srem 39861 

950 NEXTsGOSUB 970sGOTO 330 srem 28553 
960 FOR 1=1 TO 6 sP%(I)=0 sD%(I)=0 sNEXT I srem 7974 
970 GOSUB 1760 srem 53729 
980 GOSUB 1830sPRINT CL$ srem 45135 
990 GOSUB 1790 srem 21437 
1000 GOSUB 1830sRETURN srem 11334 

1010 PRINT CL$J"{wht)";P$(P) " A WINS" CR$ "WITH*A*STRAIGHT1"s 
GOTO 1030 srem 45380 
1020 PRINT CL$P$(J) " A WINSI" srem 55632 

1030 PRINT "{down yel)PLAY A AGAIN? A {wht}sGOSUB 60000sIF LEFT$ (IN$,1) ="N" 
THEN 60600 srem 60224 

1040 FOR 1=1 TO 6sS%(I)=0sNEXTsP=0sSC=0 srem 36476 

1050 PRINT "{yel)SAME A PLAYERS? A (wht)";sGOSUB 60000sIF LEFT$(IN$,1)="N" THEN 
140 srem 20134 
1060 GOTO 240 srem 41566 

1070 FOR 1=1 TO 1500sNEXTsRETURN srem 59304 

1080 T=S%(1)sFOR 1=1 TO N-lsIF T<S%(I) THEN T=S%(I) srem 49345 
1090 NEXT srem 27652 

1100 PS=0sCl=0sC5=0sJ=0sK=0sTW=0 srem 56442 

1110 FOR 1=1 TO 6sT%(I)=P%(I)sNEXTsFOR X=1 TO 4sFOR Y=X+1 TO 5s 
FOR Z=Y+1 TO 6 srem 47860 

1120 IF T%(X)<>T%(Y) OR T%(X)OT%(Z) THEN 1140 srem 20757 
1130 K=T%(X)sT%(X)=0 sT%(Y)=0sT%(Z)=0 sIF K THEN J=1 srem 11186 
1140 IF K=1 THEN PS=PS+1000sK=0 srem 41254 
1150 IF K=2 AND R=1 THEN TW=1 srem 36994 
1160 PS=PS+K*100sK=0sNEXT Z,Y,X srem 22249 

1170 FOR 1=1 TO 6sIF T%(I)=1 THEN Cl=Cl+100sT%(I)=0sJ=l srem 19760 
1180 IF T%(r)=5 THEN C5=C5+50$T%(I)=0sJ=1 srem 46716 
1190 NEXTsIF' J=0 THEN 410 srem 45275 

1200 J=PS+C1+C5sK=0sFOR 1=1 TO 6sK=K+T%(I)sNEXTsIF K=0 THEN 1340 srem 2702 
1210 IF TW THEN 1370 srem 31727 

1220 K=0sFOR 1=1 TO 6sIF P%(I)=0 THEN K=K+1 srem 18687 
1230 NEXTsIF S%(P)+SC+J>=5000 THEN 1520 srem 28316 
1240 IF T>=4700 THEN 1390 srem 7532 
1250 IF J+SC>=1000 THEN 1520 srem 41097 
1260 IF K=0 THEN 1310 srem 52082 

1270 IF J+SO350 AND S%(P)+J+SC>T THEN 1520 srem 13499 
1280 IF J+SC>300 AND SC<300 THEN 1520 srem 36338 
1290 IF K>=3 THEN 1520 srem 26378 
1300 GOTO 1390 srem 40310 

1310 IF J>400 AND S%(P)+J>T THEN 1520 srem 10380 
1320 IF J>500 THEN 1520 srem 19152 
1330 GOTO 1390 srem 22599 
1340 GOSUB 1890 srem 64068 

1350 IF J+SC+S%(P)>=5000 THEN 1520 srem 30749 
1360 SC=SC+J sGOSUB 1600 srem 15886 



CONTACT 


59 


1370 PRINT CL$ "I'LL a ROLL a AGAIN":POR 1*1 TO 6:D%(I)=0:NEXT: 

GOSUB 1070 srem 1726 

1380 PRINT LEFT$(CL$,12)TAB(11) "{pur}" SCsPRINT CL$jGOSUB 1830j 
GOTO 300 :rem 32245 

1390 PRINT CL$ "(yel)I'LL A KEEP A ";sIP PS>C1 OR PS>C5 THEN 1450 :rem 49010 
1400 IP C1>C5 OR C1=C5 THEN 1430 srem 56988 

1410 FOR 1=1 TO 6:IF P%(I)=5 THEN PRINT I:P%(I)=0:1=6 srem 63790 
1420 NEXT:SC=SC+50:GOTO 1480 :rem 9023 

1430 FOR 1=1 TO 6:IF P%(I)=1 THEN PRINT I?:P%(I)=0 :rem 54354 
1440 NEXT:SC=SC+Cl:GOTO 1480 :rem 38480 

1450 FOR X=1 TO 4sFOR Y=X+1 TO 5:FOR Z=Y+1 TO 6:IF P%(X)=0 THEN 
1470 :rem 57459 

1460 IF P%(X)=P%(Y) AND P%(X)=P%(Z) THEN PRINT X;Y;Z:P%(X)=0:P%(Y)=0: 

P%(Z)=0 srem 44417 
1470 NEXT Z,Y,X:SC=SC+PS srem 35191 
1480 FOR 1=1 TO 6:IF P%(I) THEN D%(I)=0 srem 44669 
1490 NEXT I srem 41385 

1500 GOSUB 1760sPRINT LEFTS(CL$,12)TAB(11) "{pur>" SCsGOSUB 1070 srem 28749 
1510 GOSUB 970:GOSUB 1070sPRINT CL$:GOTO 1100 srem 49417 
1520 PRINT CL$; "{yel)I A WQN' T A ROLL";CR$; "AGAIN. ":SC=SC+JsGOSUB 1070s 
GOTO 590 srem 30132 

1530 DATA " AAA {3°left down} AAA (3°left down)***" srem 18173 
1540 DATA " A * A {3°left down} A {Z} A {3°left down} AAA " srem 33404 
1550 DATA "{Q} AA {3°left down} AAA {3°left down} AA {Q}" srem 12337 
1560 DATA "{Q}^{3°left down} A {Q} A {3°left down} AA {Q}" srem 60566 
1570 DATA "{Q} A {Q 3°left down} AAA {3°left down Q} A {Q}“ srem 61834 
1580 DATA "{Z} A {Z 3°left down} A {Z} A {3°left down Z} A (Z}" srem 26002 
1590 DATA "{Q} a {Q 3°left down Q} A (Q 3°left down Q} A {Q}" srem 9382 
1600 PRINT "{home blk down} AA {U 3°* I} A {U 3°* I} A (U 3°* I} A (U 3°* I} A {U 
3°* I} A (U 3°* I}" srem 23934 

1610 PRINT " AA C-}_€-} A i-}_C-} A <-}_<-}^C-}-<-}^<-}-1-}^€-}- 

srem 51663 

1620 PRINT h aa {-}_{-} A {-} AAA t-} A {-}^ AA {-}^{-}-{-}^{->-<-}^£-}-{->" 

srem 32796 

1630 PRINT ” AA {-} AAA {-} A {-} AAA {-} A {-} AAA {-} A {-} AA .{-} A (-} AAA (-} A {-} AAA {-}" 
srem 18610 

1640 PRINT " AA (J 3°* K} a (J 3°* K} A {J 3°* K} A {J 3°* K} A (J 3°* K} A {J 3°* K}" 
srem 28885 

1650 PRINT "{cyn} AAA {rvs-on} A 1 A {rvs-off} AAA {rvs-on} A 2 A trvs-off} AAA trvs-on} 

A 3 A {rvs-off} AAA {rvs-on} A 4 A {rvs-off}_{rvs-on} A 5 A trvs-off} AAA {rvs-on} 

A 6 A (rvs-off down}" srem 2087 

1660 PRINT "{blu 13°+ rvs-on}" C$ "(rvs-off +}";CHR$(20);"U3° + left inst 
+}" srem 18806 “ 

1670 PRINT TAB(19) "{purKidown left 4°space}PLAYER{4°space}SCORE" 
srem 58873 

1680 RETURN srem 34103 

1690 PRINT "{home ll°down}":J=0sFOR 1=1 TO N srem 41644 
1700 IF S% (I) >=5000 THEN IF IOP THEN J=I srem 2400 
1710 IF I=P THEN PRINT "{cyn}"; srem 27535 

1720 PRINT TAB(19)CHR$(48+1);"{3°right}" P$(I);"{rvs-off}";TAB(32);S%(I); 

"{ pur }" srem' 36600 
1730 PRINTsNEXTsRETURN srem 55056 

1740 FOR 1=1 TO 6:P%(I)=0:D%(I)=0:NEXT I srem 65338 
1750 GOSUB 1760sGOSUB 1830:RETURN srem 1840 
1760 FOR 1=1 TO 6 srem 37926 

1770 IF P%(I)=0 THEN PRINT LEFT$(C$,7);SPC(6*1-3);" AAA " 


srem 51730 
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1780 NEXT:RETURN srem 7792 

1790 R=R+1:FOR 1=1 TO 6 srem 64214 

1800 IF P%(I) THEN D%(I)=6*RND(1)+1:P%(I)=D%(I) srem 28860 
1810 NEXT srem 13809 

1830 PRINT "{home}”;TAB(10);sIF R=1 THEN PRINT "{rvs-on yelJ 
*** A FIRST A ROLL A ***"sGOTO 1850 srem 41849 
1840 PRINT "(18°space}" srem 29892 
1850 J=1sFOR 1=3 TO 33 STEP 6 srem 55609 

1860 PRINT "(home cyn 2°down 3°right}" TAB(I)D$(D%(J)) srem 4653 

1870 J=J+lsNEXTsJ=0 srem 49216 

1880 PRINT "{pui:)" sRETURN srem 26784 

1890 FOR 1=1 TO 20 srem 28599 

1900 PRINT "{rvs-on blu )";C$ srem 41621 

1910 FOR K=1 TO 20sNEXT srem 45819 

1920 PRINT "{rvs-on wht}";C$ srem 38675 

1930 FOR K=1 TO 20sNEXT srem 4994 

1940 NEXT IsRETURN srem 5991 

241 lines, proof number = 56942 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in CONTACT 

C$ “Contact" message. 

CL$ Cursor control for print formatting 
D$0 Graphics for the dots on dice 
D%() Current value of the six dice 
N Number of players 
P Current player number 
P$() Holds names of the players 


P%() Which dice are being kept 
R Number of dice rolls 
S%() Score for each player 
SC Points accumulated since last roll 
T%() Temporary storage of dice values 
TW Flag for C-64 logic 


How CONTACT Works 


100-240 

250-1000 

1010-1070 

1080-1520 


Initialize variables and determine number 
of players 

Main game loop: roll dice and accumulate 
score for each player 
Display winner and ask for another game 
The C-64 calculates its moves 


1530-1590 DATA for dot patterns on the dice 
1600-1680 Show the game board. 

1690-1730 Print scores 

1740-1780 Clear the dice 

1790-1940 Roll dice and display dots 








SHEEP 


Peter Steams 


I n SHEEP, you use the joystick to control a 
sheep-herding dog. The goal is simple: 
round up the flock of sheep and herd them 
into the barn. The sheep are afraid of the dog, 
and tend to move away from him. However, it's 
easy to let the sheep scatter, which makes it 
much more difficult to get them all into the 
barn. At the top of the barn a timer counts 



down, showing you how many seconds are left 
before the game is over. Watch out that the 
sheep don’t stray into the cornfield at the upper 
left corner of the screen, since the dog isn’t 
allowed to walk through corn. 

Note: SHEEP requires a joystick and uses 
sound. 


1 PG$="SHEEP"sAU$="PETER*STEARNS" :BG$="JOYSTICK JBUTTON " srem 42477 

3 s 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 srem 51784 

100 DIM SP(9),MO(9),M(10),LF(15),HF(15) :rem 14225 
110 TC=CM-CRT :rem 12165 

120 DEF FNJ(Z)=15-PEEK(JS+Z) AND 15 :rem 56841 
130 GOSUB 9200 :rem 34420 

140 RESTOREsFOR 1=1 TO 9:READ N:SP(I)=CRT+762+NsNEXT :rem 46566 

150 DATA 1,2,3,41,42,43,81,82,83 :rem 37143 

160 FOR 1=1 TO lOsREAD M(I)sNEXT I :rem 37880 

170 FOR 1=1 TO 6:READ LF(I),HF(I)sNEXT I srem 63570 

180 DATA -40,40,0,-1,-41,39,0,1,-39,41 srem 50405 

190 CT=0:POKE VIC+24,31:GOSUB 1000 srem 23588 

200 PRINTsPOKE VIC+32,5sPOKE VIC+33,1sPRINT "(clr blk>" srem 3313 

210 PRINT "(4°down)" srem 8830 

220 PRINT TAB(20);"{4°space 11°@)" srem 10824 

230 PRINT TAB(20);" AAA {rvs-on wht £* rvs-off blk 10°* M>" srem 63904 
240 PRINT TAB(20) ? " {wht rvs-on £}*„(* rvs-off 10°space blk M}" 
srem 37450 

250 PRINT TAB(20); "(whtJ^trvs-on £} A (2°£K(* rvs-off 10°space blk M)" 
srem 29090 

260 PRINT TAB(20)?"(wht rvs-on £}^(2 0 +}^{* rvs-off 10°space blk M}" 
srem 12533 

270 PRINT TAB(20)(wht rvs-on 7°space N ll°space>" srem 32393 
280 FOR 1=1 TO 4sPRINT TAB(20) ; "(wht rvs-on)(blk 2°+ whti^CN 
ll°space>"sNEXT I srem 15968 

290 PRINT "(home down grn)";sFOR 1=1 TO llsPRINT "(right 12°X)"s 
NEXT I srem 14431 
300 PRINT "( cyn )"; srem 41570 
310 NS=7sMX=250 srem 35432 

320 FOR 1=0 TO 39sPOKE CRT+I,35sPOKE CM+1,0 srem 44496 
330 POKE CRT+960+I,35sPOKE CM+960+1,0sNEXT I srem 45559 
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340 FOR 1=0 TO 920 STEP 40:POKE CRT+I,35sPOKE CM+1,0 srem 27530 

350 POKE CRT+39+1,35:POKE CM+39+1,0:NEXT srem 36867 

360 DP=CRT+663sPOKE DP,81sPOKE TC+DP,2 srem 60619 

370 FOR 1=1 TO NSsPOKE SP(I),94sPOKE TC+SP(I),6sNEXT srem 36199 

380 TI$="000000"sTO=0sGOSOB 430 srem 14187 

390 IF CT=NS THEN M$="ALL n sGOSUB 1160sGOTO 410 srem 19203 

400 M$=STR$(CT)sIF CT=0 THEN M$="NO" srem 62498 

410 GOSUB 940sIF IN=1 THEN TF=OsGOTO 140 srem 35830 

420 POKE VIC+24,21sGOTO 60600 srem 7174 

430 FOR 1=1 TO NS srem 47691 

440 IF SP(I)=0 THEN FOR J=1 TO 150sNEXT JsGOTO 650 srem 33905 

450 DR=0sSN=lsDF=DP-SP(I)sIF DF<1 THEN DF=-DFsSN=-l srem 20698 

460 IF DF-INT(DF/40)*40>4 THEN 530 srem 2238 

470 IF DF<5 THEN DR=-1 srem 7224 

480 IF DF>41 AND DF<45 THEN DR=-1 srem 3542 

490 IF DF=40 OR DF=80 OR DF=81 OR DF=79 OR DF=120 THEN DR=-40 srem 8448 
500 IF DF<40 AND DF>35 THEN DR=-39 srem 7811 
510 IF DF=41 OR DF=82 OR DR=103 THEN DR=-41 srem 29258 
520 DR=DR*SNsCE=DR srem 54830 
530 J=0 srem 4319 

540 N=INT(KND(1)*7)-2sJ=J+lsIF J>3 THEN DR=-DRsIF J>6 THEN 650 srem 
550 IF N>2 THEN N=CE srem 61258 
560 IF N=-2 THEN N=-40 srem 65372 
570 IF N=2 THEN N=40 srem 36867 
580 N=DR+NsIF N=0 THEN N=MO(I) srem 20874 
590 MO(I)=N srem 29042 

600 IF PEEK(SP(I)+N)=88 THEN GOSUB 1080sGOTO 630 srem 17493 
610 IF PEEK(SP(I)+N)=230 THEN GOSUB 760sGOTO 680 srem 3119 
620 IF PEEK (SP (I) +N) 032 THEN 540 srem 27572 
630 s srem 7275 

640 POKE SP(I),32sSP(I)=SP(I)+NsPOKE SP(I),94sPOKE TC+SP(I),6 srem ! 

650 JV=FNJ(0)sA=M(JV) srem 46108 
660 GOSUB 60500 srem 19566 

670 GOSUB 710sIF DROO AND J<4 THEN 450 srem 3710 
680 GOSUB 840sIF CT=NS OR TF=1 THEN RETURN srem 317 47 
690 NEXT I srem 55908 
700 GOTO 430 srem 13412 
710 IF A=0 THEN RETURN srem 30554 
720 DT=81sIF JV>1 AND JV<7 THEN DT=80 srem 59580 
730 IF PEEK(DP+A) 032 THEN 750 srem- 12321 

740 POKE DP+A,DTsPOKE TC+DP+A,2sPOKE DP,32sDP=DP+A srem 7680 
750 RETURN srem 7790 

760 POKE SP(I),32sPOKE SP(I)+N,94 srem 25752 
770 GOSUB 1120 srem 33970 
780 POKE SP(I)+N,230 srem 30051 
790 CT=CT+1 srem 24718 
800 POKE CRT+548+CT,222 srem 25739 
810 SP(I)=0 srem 17099 
820 TF=0 srem 59137 
830 RETURN srem 54291 
840 Z=INT((TI-T0)/60) srem 4029 
850 IF Y=Z THEN RETURN srem 12832 

860 Y=ZsPRINT "(home)";TAB(29);"{8°down)";STR$(MX-Z);" srem 53019 
870 IF Z<MX THEN RETURN srem 44844 
880 FOR Z=1 TO 15 srem 48624 

890 POKE SID+11,33 sFOR DE=1 TO 16sNEXT DE srem 54194 



SHEEP 


63 


900 POKE SID+11,32 srem 31697 

910 FOR DE=1 TO llsNEXT DE ;rem 55332 

920 NEXT Z :rem 9083 

930 POKE SID+ll,0$TF=lsRETURN :rem 9659 
940 POKE VIC+32,OsPOKE VIC+33,0 :rem 4048 

950 PRINT "{clr wht}";M$;"^SHEEP^IN^THE^BARN^lI"sPRINT srem 6879 

960 IN=1:JT=13:JW=5:JM=2 srem 21834 

970 PR$="PLAY a AGAIN? a<v YES aa NO" srem 24123 

980 GOSUB 60200 srem 64712 

990 RETURN srem 10557 

1000 FOR Z=SID TO SID+24sPOKE Z,0sNEXT Z srem 5907 

1010 POKE SID,0sPOKE SID+1,1 srem 44503 

1020 POKE SID+5,39sPOKE SID+6,57 srem 48267 

1030 POKE SID+7,107sPOKE SID+8,47 srem 33902 

1040 POKE SID+12,8sPOKE SID+13,8 srem 59049 

1050 POKE SID+2,0sPOKE SID+3,8 srem 11183 

1060 POKE SID+24,15 srem 46049 

1070 RETURN srem 49442 

1080 POKE SID+4,129 srem 14563 

1090 FOR Z=0 TO 60sNEXT Z srem 43170 

1100 POKE SID+4,128 srem 19030 

1110 RETURN srem 16061 

1120 POKE SID+11,33 srem 51309 

1130 FOR DE=1 TO 75sNEXT DE srem 7765 

1140 POKE SID+11,0 srem 22569 

1150 RETURN srem 39895 

1160 POKE SID+5,40sPOKE SID+6,40 srem 19187 
1170 FOR BL s 0 TO 2 srem 29559 
1180 FOR Z=1 TO 6 srem 34025 

1190 POKE SID,LF(Z)sPOKE SID+1,HF(Z)+BL*2 srem 12970 

1200 POKE SID+4,65sIF Z=6 THEN FOR DE=1 TO 75sNEXT DE srem 33125 

1210 FOR DE=1 TO 50sNEXT DEsPOKE SID+4,64 srem 9137 

1220 NEXT Z srem 6222 

1230 FOR DE=1 TO lOOsNEXT DE srem 41712 

1240 NEXT BL srem 62327 

1250 POKE SID+4,0sRETURN srem 46604 

1260 DATA 209,18,30,25,165,31,162,37,165,31,162,37 srem 32352 
1270 DATA -2 srem 4591 

9200 PRINT "CclrJSETTING^UP.srem 55905 

9202 READ VsIF VO-2 THEN 9202 srem 35390 

9203 B=49152s1=0 srem 35893 

9205 READ VsIF V=-l THEN 9215 srem 64880 
9210 POKE B+I,VsI=I+lsGOTO 9205 srem 46876 
9215 SYS 49152 srem 25396 
9220 B=14336 srem 46591 

9225 READ PsIF P=-l THEN 9245 srem 63738 
9230 B2=B+P*8 srem 62224 

9235 FOR Z=0 TO 7 sREAD VsPOKE B2+Z,VsNEXT Z srem 46529 
9240 GOTO 9225 srem 50474 
9245 RETURN srem 59154 

9300 DATA 120,165,1,41,251,133,1,169,0,133,251,133,253,169,56 srem 53474 
9310 DATA 133,252,169,208,133,254,162,8,160,0,177,253,145,251 srem 58285 
9320 DATA 200,208,249,230,252,230,254,202,208,240,165,1,9,4 srem 54994 
9330 DATA 133,1,88,96,-1 srem 10394 

9400 DATA 35,102,102,255,102,102,255,102,102 srem 23876 
9410 DATA 81,0,0,6,7,252,124,108,108 srem 14794 
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9420 DATA 80,0*0,96,224,63,62,54,54 srem 56059 
9430 DATA 222,255,248,248,131,3,147,147,147 srem 17389 
9440 DATA 94,0,7,7,124,252,108,108,108 srem 61322 
9450 DATA -1 srem 8456 

196 lines, proof number = 51830 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page 00. 


Important Variables in SHEEP 

CT Number of sheep in bam 

DE Delay loop variable 

DP Position of the dog 

DR Direction number added to screen location for 

movement of a sheep 

DT Current screen POKE value for the dog 
HF() High byte for voice 1 SID frequency control 
JV Current joystick value 


LF() Low byte for voice 1 SID frequency control 
M() Movement values for each joystick position 
MO() Used to calculate direction of a sheep 
MX Maximum time per game 
SN Negate direction of travel for a sheep 
SP() Current screen position of each sheep 
TC Pointer for color memory 

Y Current timer value 


How SHEEP Works 


100-190 Initialize variables and arrays 

200-370 Display barn, cornfield, and rest of screen 
380-420 Main game loop 

430-640 Sheep movement 

650-700 Look for "Q”uit, update timer, read joystick 

710-750 Move dog 

760-830 Move sheep into bam 

840-870 Display time 

880-930 Song when all sheep are in the bam 


940-990 Play again? 

1000-1070 Initialize sound 
1080-1110 Sound for sheep eating grass 
1120-1150 Sound for sheep going into barn 
1160-1250 Tune for all sheep in bam 
1260-1270 DATA for SID low and high bytes 
9200-9450 Copy character set and data for 
programmable characters 




MISER-II 

Andy Stadler 


T here's treasure, adventure, and more 
than a little danger in this sequel to the 
MISER adventure in the first Commo¬ 
dore 64 Fun and Games book. We don't want to 
give away the story, but you’ll explore the mis¬ 
er’s island (if you can figure out how to get 
there). There are puzzles to solve, dead ends to 
avoid, and you may have to learn how to use 
scuba diving equipment. 

Once tl)e program starts, give one- or two- 
word commands. For example, you might type 
NORTH (or just N) to go north. The text of 


VOU ARC IN me MISER'S MARINA, Si AND IHG 
ON A DOCK. 

OBVIOUS EXITS: S C 

E 

VOU ARE OH THE MISER'S COAT. 

I18UI0US EXITS: U U D 


MISER-II will be purple (purple prose?) and 
your responses will be shown in green. Useful 
commands include LOOK, to look around the 
room you are in; INVEN, to get an inventory of 
your treasures; SCORE, to learn your current 
score and EXAM, to look at a specific object. 

You might want to make a map of your wan¬ 
derings if you ever hope to solve the game. Yes, 
it can be solved! However, like all text adven¬ 
ture programs, it takes lots of patience, and 
more than a little cleverness to reach the final 
goal. 


1 PG$="MISERa A II" sAU$="BY a ANDYaSTADLER" :BG$="RETURN " :rem 8100 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905/ SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 :rem 51784 
100 GOTO 44000 srem 41377 

500 IF MB=1 THEN PRINT "(down)YOURAMATCH aJUSTaWENTaOUT. " :rem 52137 

505 IF MB>0 THEN MB=MB-1 :rem 48789 

510 IF AC OR (WS=0) THEN 535 ;rem 34245 

515 AL=AL-1 :rem 17742 

520 IF ALOO THEN 530 :rem 61567 

525 PRINT "(down)YOU^DRAW a YOUR A LAST A BREATH„FROM^THE < k SCUBAGEAR. (down)": 

GOTO 36000 :rem 10090 

530 IF AL<5 THEN PRINT "(downlYOU aAREaDANGEROUSLYJuOWaON a AIR." srem 31604 
535 IF AC THEN AC=AC-1 :rem 46986 

540 IF AC=1 THEN PRINT "{downlAN a ANGEL a QUIETLY„FLOATS„BY.":AC= 5 :rem 35505 

545 IF DC THEN DC=DC-1 srem 11557 

550 IF DC=1 THEN GOSUB 610 srem 7596 

555 IF ES s 0 THEN 605 srem 9619 

560 ES s ES-lsAL=AL+5sIF ES THEN 605 srem 30440 

565 PRINT "{14°space down red>B*OAO*M*I{pur}" srem 12414 

570 IF CPOOL%(6) THEN 580 srem 47702 

575 PRINT "(downlTHEASCUBAATANKAEXPLODESAlNAYOURAFACE.{down>"s 
GOTO 36000 srem 39881 
580 PRINT "{down) 

A a TREMENDOUS a EXPLOSION„ROCKS a THE„CAVE...YOU^ARE^SHAKEN^BUTJJNHURT." 
srem 48106 

585 Y=OL%(6)sFOR X=1 TO OCsIF OL%(X)=Y THEN OL%(X)=0 srem 63885 
590 NEXT XsEX=lsOL%(22)=YsIF Y<>39 THEN 605 srem 5065 
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595 MV%(40,6)=39sMV%(39,5)=40 srem 46604 

600 RM$ (39) ="IN.A.ROCKY.ROOM.WITH.LIGHT.POURING.THROUGH.A.BIG*HOLE.IN.THE 
.ROOF" srem 20872 
605 RETURN ;rem 35286 

610 PRINT "(down)SINCE.YOU'RE.DEAD,.WHAT.SAY.WE.JUST.PACKIT.IN.NOW,.OK?": 
RETURN srem 7955 

700 GOSUB 500SPRINT "{grn>"sSC»0sSF=0sTV=0sGOSUB 60000 srem 30706 
710 PRINT "{pur)"sIF LEN(IN?)=0 THEN PRINT "fgrn 2°up)";sGOSUB 60000s 
GOTO 710 srem 35572 

720 IF L EFT ? (IN ?, 1) = " . " THEN IN?=RIGHT? (IN?,LEN (IN$) -1) s 
GOTO 720 srem 63606 

730 IF RIGHT?(IN?,1)="." THEN IN?=LEFT?(IN?,LEN(IN?)-1)s 
GOTO 730 srem 58202 

735 SP»LEN (IN?) +1 s IF SP=1 THEN 700 srem 41265 

740 SC=SC+1sIF MID?(IN?,SC,1)="." THEN SF=SF+1sSP=SC srem 1409 

750 IF SC<LEN(IN?) THEN 740 srem 8873 

760 IF SF>-1 AND SF<2 THEN 780 srem 31289 

770 PRINT "PLEASE.TYPE.A^ONE.OR.TWO..WORD.COMMAND. "sGOTO 700 srem 31535 

780 CV?=LEFT?(LEFT?(IN?,SP-1),4)sCV=0sCN?=""sCN=0 srem 64992 

790 IF SFOO THEN CN?=MID? (IN?,SP+1,4) srem 17563 

800 FOR X=1 TO VCsIF CV?=VB?(X) THEN CV=X srem 362 

810 NEXT XsIF CV=0 THEN 31000 srem 52417 

820 IF SF=0 THEN 900 srem 59496 

830 FOR X=1 TO NCsIF CN?=NN?(X) THEN CN=X srem 5740 
840 NEXT XsIF CN=0 AND CV<>17 THEN 32000 srem 8511 

900 ON CV GOTO 1000,1000,2000,2000,3000,3000,4000,4000,5000,5000,6000, 
6000,7000 srem 51118 

910 ON CV-13 GOTO 7000,8000,8000,9000,10000,10000,11000,12000,13000,14000, 
15000 srem 11000 

920 ON CV-24 GOTO 15000,16000,17000,14000,19000,19000,18000,20000,21000, 
22000 srem 57510 

930 ON CV-34 GOTO 23000,21000 srem 13766 
990 PRINT "UNIMPLEMENTED."sEND srem 63720 
1000 IF MV%(CP,1)=0 THEN 37000 srem 21403 
1010 CP=MV%(CP,1)sTV=lsGOTO 7000 srem 63808 
2000 IF MV%(CP,2)=0 THEN 37000 srem 11817 
2010 IF EX=0 OR CP<>18 THEN 2020 srem 7212 

2015 PRINT "THE.PATH.IS.BLOCKED.BY.A.RECENT.CAVE-IN."sGOTO 700 srem 48431 

2020 CP=MV%(CP,2)sTV=lsGOTO 7000 srem 22678 

3000 IF MV%(CP,3)=0 THEN 37000 srem 21069 

3010 CP=MV%(CP,3)sGOTO 7000 srem 49127 

4000 IF MV%(CP,4)=0 THEN 37000 srem 54605 

4010 CP=MV%(CP,4)sGOTO 7000 srem 51969 

5000 IF MV%(CP,5)=0 THEN 37000 srem 19639 

5010 CP=MV%(CP,5)sGOTO 7000 srem 41591 

6000 IF MV%(CP,6)=0 THEN 37000 srem 11653 

6010 CP=MV%(CP,6)sGOTO 7000 srem 14127 

7000 IF (CV>12) AND (CV<15) AND CN THEN PRINT "TRY.EXAM."s 
GOTO 700 srem 19721 

7005 OU?="YOU.ARE."+RM?(CP)+"."sGOSUB 30000 srem 50940 
7010 FOR X=1 TO OCsIF OL%(X)OCP THEN 7030 srem 64674 
7020 OU?="THERE.IS.A."+OB?(X)+".HERE."sPRINTsGOSUB 30000 srem 32339 
7030 NEXT X srem 33789 

7100 PRINT "(downJOBVIOUS^EXITSs*";sFOR X=1 TO 6 srem 15829 
7110 IF MV%(CP,X)>0 THEN PRINT MID?(DR?,X,1);srem 18178 
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7120 NEXT X:PRINT:IP (TV=0) OR (CP>55) OR (CP<52) OR (OL%(23)=0) THEN 
700 :rem 65461 

7130 PRINTsOU$="A a STRANGE a VOICE a INTONES, A ' " srem 14482 

7140 IF CP=52 THEN OU$=OU$+"HE a WHO a MAKES a ME, a WANTS a ME a NOT. ' " :rem 36106 
7150 IF CP=53 THEN OU$=OU$+"HE a WHO a HAS a ME, a KNOWS a ME a NOT.'" :rem 18471 
7160 IF CP=54 THEN OU$=OU$+"HE A WHO A KNOWS A ME, a WANTS a ME a NOT.: rem 47840 
7170 IF CP=55 THEN OU$=OU$+"PUT A ME A HERE.'" srem 54427 
7180 GOSUB 30000:GOTO 700 srem 27887 

8000 PRINT "YOU*.ARE a CARRYING a THE a FOLLOWING s (down)"sFOR X=1 TO OC srem 61172 
8010 IF OL% (X) 0-1 THEN 8200 srem 24626 
8015 PRINT OB$(X) srem 63658 

8020 IF X=5 AND OL%(5)=-l THEN PRINT " aaa THERE a ARE";ML;"MATCHES a LEFT." 
srem 54900 

8030 IF X=6 AND WS THEN PRINT " aaa WHICH a YOU a ARE a WEARING." srem 25343 

8200 NEXT XsIF MB THEN PRINT "BURNING a MATCH" srem 43954 

8210 GOTO 700 srem 42893 

9000 IF SF=0 THEN 34000 srem 53369 

9010 IF ((CN<5) OR (CN>7)) THEN 9100 srem 3016 

9020 PRINT "A~HOLLOW*VOICE~SAYS,~' WRONG ^ADVENTURE'."sGOTO 700 srem 55687 
9100 PRINT "OKAY, A '";RIGHT$ (IN$,LEN (IN$)-SP) ; " '. " sFOR X=1 TO 1000s 
NEXT X srem 16796 

9110 PRINT "NOTHING a HAPPENS." sGOTO 700 srem 16976 
10000 IF CN=0 THEN 34000 srem 36508 

10010 IF FNW(CN)=-l THEN PRINT "YOU a ALREADY a HAVE a IT." sGOTO 700 srem 15828 
10020 IF FNW(CN) OOP THEN PRINT "I A DON' T A SEE A IT A HERE. "sGOTO 700 srem 21257 
10030 IF FNF(CN) THEN PRINT "THAT a ITEM a STAYS a PUT." sGOTO 700 srem 34543 
10040 IF (CN=9) AND ES THEN PRINT "THE a FIRE a HAS a MADE a IT a MUCH a TOO a HOT." s 
GOTO 700 srem 254 

10050 OL%(PN%(CN))=-lSPRINT "OK" srem 63012 

10060 IF FNT(PN%(CN)) THEN PRINT "{down}YOU a GOT a A a TREASURE 1" srem 26622 

10070 GOTO 700 srem 34416 

11000 IF CN=0 THEN 34000 srem 49964 

11010 IF FNW(CN) 0-1 THEN PRINT "YOU A DON•T a HAVE a IT." sGOTO 700 srem 34228 
11012 IF (CN=9) AND WS THEN PRINT "YOU a ARE a WEARING a IT." sGOTO 700 srem 58165 
11015 PRINT "OK" srem 15008 

11020 IF (CN=4) AND MB AND (OL%(10)=CP) THEN 11200 srem 7359 
11025 IF MB THEN 700 srem 24869 

11030 IF CN<>9 OR FB=0 OR OL%(15)OCP THEN 11040 srem 32891 
11035 PRINT "{down>IT A LANDS A ON A THE A FLAMES."sES=4 srem 54654 
11040 IF (CP=55) AND (PN%(CN)=23) THEN 11300 srem 2811 
11080 OL%(PN%(CN))=CP srem 61094 

11085 IF (CP=43) AND (CV=31) THEN PRINT "{down)IT A FLUTTERS A AWAY..."s 
OL%(PN%(CN))=0 srem 29021 
11090 IF CP<>49 THEN 700 srem 57995 
11100 GOSUB 20500sIF S=100 THEN 21030 srem 22020 
11110 GOTO 700 srem 57336 

11200 PRINT "{down)THE A MATCH A IGNITES a THE a BRUSH.( down)"sFB=1sMB=0s 
PN%(14)=-15sOL%(15)=CP srem 37222 
11210 OL%(10)=0sGOTO 7000 srem 62497 

11300 OU$="{down>BEFORE A YOUR A VERY A EYES, a THE a MONEY a SHIMMERS a AND a CHANGES..." 
srem 14363 

11305 GOSUB 30000 srem 34248 

11310 OL%(23)=0sOL%(8)=55sPN%(27)=8sPN%(28)=8sGOTO 700 srem 25295 
12000 GOSUB 35000 srem 51308 

12040 IF CN=9 THEN PRINT "IT a HAS a A a LABEL a AND a A a GAUGE." sGOTO 700 srem 7169 
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12060 IF CN=13 THEN PRINT "IT A READS";AL*250;"PSI."sGOTO 700 :rem 53954 
12070 IF CN=16 THEN PRINT "IT a HAS a A a RED a BUTTON a AND a A a BLUE a BUTTON.": 

GOTO 700 srem 55490 
12090 IF CN=3 THEN 12300 :rem 30439 
12100 IF CN=20 THEN 13080 srem 55791 

12110 IF (CN=21) OR (CN=15) OR (CN=4) THEN 12400 :rem 41812 
12120 IF PN%(CN)=23 THEN PRINT "IT a APPEARS A TO a BE a COUNTERFEIT." s 
GOTO 700 srem 51245 

12130 IF PN%(CN)=8 THEN PRINT "IT 1 S a REAL." sGOTO 700 :rem 29717 
12190 PRINT "I a SEE a NOTHING a SPECIAL a ABOUT a IT." sGOTO 700 srem 36109 
12300 PRINT "IT'S a AN a AD a FOR a AN a AMUSEMENT a PARK. aa IT" srem 37688 
12310 OU$="SHOWS a A a MAN a THROWING a RINGS a AT a A a BUNCH a OF a BOTTLES. "s 
GOSUB 30000 srem 14966 
12320 GOTO 700 srem 9583 

12400 PRINT "THERE'S A SOMETHING A WRITTEN A 0N A IT."sGOTO 700 srem 11445 
13000 GOSUB 35000 srem 32599 

13040 IF CN=3 THEN PRINT "IT 1 S a JUST a A a PICTURE a (TRY a EXAM). "s 
GOTO 700 srem 52047 
13050 IF CN=4 THEN 13200 srem 58353 
13060 IF CN=15 THEN 13300 srem 30607 
13070 IF CN=13 THEN 12060 srem 41498 

13080 IF CN=20 THEN PRINT "IT a SAYS, A 'WEAR/UNWEAR' sGOTO 700 srem 902 
13090 IF CN<>21 THEN 13190 srem 31328 

13100 PRINT "IT A SAYSs A 'RETURN A TREASURES A HERE A FOR{5°space}POINTS.'"s 
GOTO 700 srem 59529 

13190 PRINT "THERE 1 S A NOTHING A WRITTEN A QN A IT."sGOTO 700 srem 61897 
13200 OU$="IT a SAYS, a 'THE a BEST a IN a C64 a SOFTWARE a ~ a THE a CODE a WORKS, a SANTA" 
srem 4289 

13210 OU$=OU$+" a BARBARA, a CA'"sGOSUB 30000sGOTO 700 srem 51987 
13300 OU$="THE a LABEL a SAYS, a 'COMPRESSED a AIR. aa KEEP a FROM a FIRE a AND a HEAT.*■ 
srem 60577 

13310 GOSUB 30000sGOTO 700 srem 37336 
14000 GOSUB 35000 srem 48783 

14010 IF (PN%(CN)=5) AND ML THEN PRINT "OK"sML=ML-lsMB=2sGOTO 700 srem 607 < 
14020 IF (PN%(CN)=5) AND (ML=0) THEN PRINT "NO a MATCHES a LEFT." s 
GOTO 700 srem 62338 

14030 IF PN%(CN)=12 THEN PRINT "THE a MATCHES a ARE a TOO a WET a TO a BURN." s 
GOTO 700 srem 28540 

14040 PRINT "YOU a RUB a IT a TOGETHER a UNTIL a YOUR a ARMS a ARE" srem 58654 
14050 OU$="TIRED f A BUT A I A GUESS A YOU A WEREN 1 T a A a BOY a SCOUT. aa IT a DOESN 1 T A LIGHT." 
srem 32390 

14060 GOSUB 30000sGOTO 700 srem 42534 
15000 IF CNOO THEN 31000 srem 61874 

15010 IF (CP=1) OR (CP=2) OR (CP=5) THEN 15200 srem 60497 

15020 IF CP=42 THEN CP=18sGOTO 15300 srem 39381 

15030 IF CP=18 THEN CP=42sGOTO 15300 srem 14208 

15040 IF CP=32 THEN CP=37sGOTO 15300 srem 36818 

15050 IF CP=37 THEN CP=32sGOTO 15300 srem 65107 

15060 IF (CP<36) AND (CP>32) THEN 15600 srem 23555 

15070 OU$="YOU a EXECUTE a A a PERFECT a SWAN a DIVE a AND a " srem 16335 

15075 OU$=OU$+"HIT a THE a FLOOR a WITH a A a LOUD a SMACK" srem 43591 

15080 GOSUB 30000sPRINT sGOTO 36000 srem 48557 

15200 GOSUB 15400sPRINT "YOU a SWIM a AROUND, a BUT a FIND a NOTHING a OF{ 4°space} 
INTEREST." srem 37197 
15210 GOTO 15500 srem 18807 
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15300 GOSUB 15400:PRINT "UNDER.THE.SURFACE,.YOU.FIND.A.TUNNEL." :rem 49004 
15310 PRINT "ADVENTURER. YOU .ARE,YOU.FOLLOW.IT.{down}"sGOTO 15500 :rem 43198 
15400 IF OL%(9)=-l THEN PRINT "YOU.SINK,<LIKE.A.ROCK. {down} " s 
GOTO 36000 :rem 57262 

15405 IF AL THEN IF WS THEN RETURN :rem 53569 

15410 OU$="YOU.ARE.NOT.A.FISH . ..WITH.NO.AIR.SUPPLY, .YOU.QUICKLY 
.DROWN.{down}" :rem 7883 
15420 GOSUB 30000:GOTO 36000 :rem 20908 

15500 IF OL%(5)=-l THEN OL%(5)=0:OL%(12)=-l:PN%(4)=12 :rem 18095 
15510 IF OL%(10)=-l THEN OL%(10)=0:OL%(11)=-l:PN%(14)=11 :rem 5502 
15520 GOTO 7000 :rem 30229 

15600 PRINT "THE.RUSHING.WATER.SWEEPS.YOU.AWAY...{4°space} 
YOU.ARE.PUMMELED.BY.THE."; :rem 20238 
15610 PRINT "ROCKS...":GOTO 36000 srem 44379 
16000 GOSUB 35000 srem 37678 

16010 IF CN<>9 THEN PRINT "YOU.WOULDN'T.LOOK.TOO.GOOD.IN.IT.": 

GOTO 700 :cem 65180 

16020 IF WS THEN PRINT "YOU.ARE.ALREADY.WEARING.IT."sGOTO 700 :rem 53531 
16030 WS=1:PRINT "OK":GOTO 700 srem 64528 
17000 GOSUB 35000 srem 33785 

17010 IF (CN<>9) OR (WS=0) THEN PRINT "YOU.AREN 1 T A WEARING.IT.": 

GOTO 700 srem 39076 

17020 PRINT "OK"sWS=0sGOTO 700 srem 13098 

18000 IF (CNO10) OR (CP<>48) THEN 11000 srem 61872 

18010 PRINT 

"YOU.RING.A.SPIKE 1..A.LITTLE.TROLL.WALKS.OUT,.CONGRATULATES.YOU, 
srem 10948 

18020 PRINT "AND.HANDS.YOU.A.PRIZE."sOL%(17)=-lsOL%(7)=0 sGOTO 700 srem 40198 

19000 GOSUB 35000 srem 61760 

19010 IF CN=17 THEN 19100 srem 60334 

19015 IF CN=26 THEN PRINT "I.NEED.A.COLOR."sGOTO 700 srem 41982 
19020 IF CN<>18 THEN PRINT "YOU.PUSH.QUITE.HARD,.BUT.TO.NO.AVAIL."s 
GOTO 700 srem 48033 

19030 IF MV%(2,4)=1 THEN PRINT "NOTHING.HAPPENS."sGOTO 700 srem 6163 
19040 OU$="THE.ENGINES.ROAR.TO.LIFE,.AND.THE.BOAT.MAKES.A.3.HOUR 
.JOURNEY.{down}" srem 22139 
19050 GOSUB 30000sMV%(2,4)=1sGOTO 7000 srem 3928 

19100 IF MV%(2,4)=5 THEM PRINT "NOTHING.HAPPENS."sGOTO 700 srem 53131 
19110 OU$="THE.ENGINES.ROAR.TO.LIFE,.AND.THE.BOAT.MAKES.A.3.HOUR 
.JOURNEY.{down}" srem 43430 
19130 GOSUB 30000sMV%(2,4)=5sGOTO 7000 srem 58465 
20000 IF CN THEN 31000 srem 17074 

20010 GOSUB 20500sOU$="WERE.YOU.TO.QUIT.NOW,.YOU.WOULD.HAVE.A.SCORE.OF" 
srem 32509 

20015 IF S<1 THEN OU$=OU$+".0"sGOTO 20025 srem 32307 
20020 OU$=OU$+STR$(S) srem 51230 
20025 OU$=OU$+".POINTS."sGOSUB 30000s 

PRINT "{down)THIS.PUTS.YOU.IN.THE.CLASS.OFs" srem 63255 
20030 PRINT "{down}<";RT$;".ADVENTURER>"s 

PRINT "{down}DO.YOU.INDEED.WISH.TO.QUIT.NOW?{grn down}" srem 36518 
20040 GOSUB 60000sIF LEFT$(IN$,1)<>"Y" THEN PRINT "{pur down)OK"s 
GOTO 700 srem 59477 

20050 PRINT "{pur down}THANKS.FOR.A.FUN.GAMEI{down}"sGOTO 21070 srem 3460 
20500 S=0sFOR X=1 TO OCsIF NOT FNT(X) THEN 20530 srem 64008 
20510 IF OL% (X) =49 THEN S=S+20 srem 1152 
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20520 

20530 

20540 

20550 

21000 

21010 

21020 

21030 

21040 

21050 

21060 

21070 

22000 

22010 

23000 

23010 

23020 

23030 

23100 

23110 

30000 

30010 

30020 

31000 

32000 

32010 

33000 

34000 

35000 

35010 

35020 

35030 

35040 

36000 

37000 

40000 

40010 

40020 

40030 

40040 

40050 

40055 

40060 

40070 

40080 


IF OL%(X)™-l THEN S»S+5 srem 5946 
NEXT X:IF AC THEN S=S-20 srem 29064 

FOR X»1 TO CCsIF S<RP%(X) THEN RT$»RTS(X)sRT-XsRETURN srem 6582 
NEXT XsRETURN srem 35650 
IF CN THEN 31000 srem 57522 

PRINT "DO A YOU A REALLY A WANT A TO A QUIT?{grn down)"s60SUB 60000 srem 34406 
IF LEFTS (INS,1)<>"Y" THEN PRINT "(down pur)OK"sGOTO 700 srem 38087 
GOSUB 20500sPRINT "{pur down}YOU A ACCUMULATED A A A SCOREAOFA N ;S; 
" a POINTS." srem 61760 

PRINT "{down >THIS A PUTS A YOU A IN A A A CLASS A OF s{down}"s 

PRINT "<";RT$;" a ADVENTURER>( down)" srem 51624 

IF RTOCC THEN PRINT "BETTER A LUCK A NEXT A TIME... " srem 51728 

IF RT=CC THEN PRINT "CONGRATULATIONS!" srem 16185 

FOR X«1 TO 6000sNEXTsGOTO 60600 srem 30663 

GOSUB 35000 srem 9105 

PRINT "IT A WON'T A BUDGE."sGOTO 700 srem 65316 
IF CN THEN 31000 srem 34184 

IF CP<>43 THEN PRINT "CAREFUL! aa YOU a MIGHT a HIT a YOUR a HEAD!" s 
GOTO 700 srem 4921 

IF OL%(l)»-l THEN GOSUB 23100 srem 18721 

PRINT "YOU a AREN'T a A a BIRD! aa IT'S a A a LONG a WAY...." sPRINTs 

GOTO 36000 srem 4901 

OU$="I a GUESS a YOU a NEVER a LEARNED a TO a RE-PACK a PARACHUTES.{ down)" 
srem 24796 

GOSUB 30000sRETURN srem 63385 

OE=40 sIF LEN(OU$)<40 THEN PRINT OUSsRETURN srem 22033 
IF MID$(OU$,OE,l)<>" A " THEN OE=OE-lsGOTO 30010 srem 53320 
PRINT LEFTS(OU$,OE-l)SPRINT RIGHTS(OUS,LEN(OUS)-OE)sRETURN srem 64814 
EM=3-EMsPRINT EM$(EM)sGOTO 700 srem 35096 

OU$="I a DON'T a KNOW a WHAT a A a "+RIGHTS(IN $,LEN(INS)-SP)+" A IS."s 
GOSUB 30000 srem 6982 
GOTO 700 srem 9590 

PRINT "I a DON'T A SEE A IT A HERE." sGOTO 700 srem 53917 
PRINT INS;" a WHAT?" sGOTO 700 srem 56079 
IF CN=0 THEN 34000 srem 33866 
IF FNW(CN)=-l THEN RETURN srem 46548 

IF FNW(CN) OCP THEN PRINT "I A DON ' T A SEE A IT A HERE. " sGOTO 700 srem 1323 
IF FNR(CN) THEN PRINT "YOU A DON'T a HAVE a IT." sGOTO 700 srem 50264 
RETURN srem 30112 

CP=46sAC=6sDC=9sGOTO 7000 srem 21091 

PRINT "THERE a IS a NO a WAY a TO a GO a IN a THAT a DIRECTION."; sGOTO 700 srem 52110 
DATA 55,36,28,23,6 srem 12759 

DATA 0,49,2,0,0,0,"IN a THE a MISER'S a MARINA, a STANDING a ON a A a DOCK" 
srem 4959 

DATA 0,0,0,1,3,4,"ON A THE A MISER' S a BOAT" srem 6475 
DATA 0,0,0,0,0,2 ,"AT a THE a HELM a OF a THE a MISER'S a BOAT" srem 21324 
DATA 0,0,0,0,2,0 ,"BELOW a DECKS a ON a THE a MISER , S a BOAT" srem 13950 
DATA 0,0,2,0,6,0 srem 52702 

DATA "IN a THE a MISER'S a PRIVATE a ISLAND a MARINA, a STANDING a ON a A a DOCK" 
srem 46255 

DATA 0,0,7,8,0,5,"ON a A a LONG A PATH A OVERLOOKING A THE A MISER 1 S a MARINA" 
srem 36304 

DATA 0,43,42,6,0,0,"STANDING a AT a A a FORK a IN a THE a PATH" srem 17293 
DATA 0,12,6,9,0,0 srem 56319 
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40085 

40090 

40100 

40110 

40120 

40130 

40140 

40150 

40160 

40170 

40180 

40185 

40190 

40200 

40205 

40210 

40220 

40230 

40240 

40250 

40260 

40270 

40280 

40290 

40300 

40310 

40315 

40320 

40330 

40335 


40340 

40345 

40350 

40360 

40370 

40380 

40390 

40395 

40400 

40410 

40420 

40430 

40440 


DATA "STANDING ..ONTH EaFRONTaLAWN ..OF a THEa MISER' S A SUMMER-HOUSE" 

:rem 24560 

DATA 8,10,0,0,0,0,"ON^THE^WEST^SIDE^OF^THE^HOUSE" srem 41118 
DATA 0,41,11,9,0,0, "INaTHEaMISER'SaBACKaYARD" ;rem 63240 
DATA 8,10,0,0,0,17 , "ON a THE <s EAST <s SIDE a OF a THE a HOUSE" srem 13995 
DATA 8,0,0,0,0,0 ,"ONaTHEaMISER'SaFRCNTaPORCH" :rem 11139 
DATA 12,14,15,50,0,0,"IN^THE^LIVING^ROOM" srem 13802 
DATA 13,0,0,0,0,17 ,"INaTHEaTINYaKITCHEN" srem 13820 
DATA 0,16,0,13,0,0,"IN^THE^BEDROOM" srem 52575 
DATA 15,0,0,0,0,0 ,"SQUEEZEDaINTOaTHEaCLOSET" srem 36859 
DATA 0,0,11,0,14,0, "INaTHEaDARKaCELLAR" srem 6504 
DATA 0,19,0,0,0,0 srem 45521 

DATA "IN a A a GIANT a BLUISH-WALIiED a CAVERN, ^AT^THE^EDGE^OF^A^MURKY^POOL" 
srem 33196 

DATA 18,0,48,20,0,0,"AT a THE < .EAST a END <s OF^A a STRANGE a CORRIDOR" srem 9483 
DATA 0,52,19,30,0,21 srem 13794 

DATA "IN^A^STRANGE^CORRIDORJfHICH^STRETCHES^OUT^OFjSIGHT" srem 35140 
DATA 22,0,0,0,20,0 ,"ONaAaSTEEP A PATH" srem 31242 
DATA 23,21,0,0,0,0 ,"IN a A a CHEESY a SMELLING*ROOM" srem 22527 
DATA 0,25,0,22,0,26 ,"INaAaSTRANGE,^CONFUSING a ROOM" srem 14975 
DATA 25,0,0,23,0,0 ,"IN*A a STRANGE,aCONFUSINGaROOM" srem 38026 
DATA 24,0,26,0,27,0 ,"INaAaSTRANGE,aCONFUSINGaROOM" srem 61074 
DATA 27,25,0,24,0,0 ,"IN a A a STRANGE, a CONFUSINGaROOM" srem 32354 
DATA 26,28,28,28,28,28 ,"INaAaSTRANGE,aCONFUSINGaROOM" srem 26790 
DATA 27,0,29,27,27,27 ,"INaAaSTRANGE,^CONFUSING A ROOM" srem 46899 
DATA 28,0,0,0,0,0 ,"INaAaSPARKLINGaCHAMBER" srem 50014 
DATA 44,0,20,0,0,31,"AT^THE^WEST^END^OF^THE^STRANGE^CORRIDOR" 
srem 35871 

DATA 32,0,0,0,30,0 srem 39335 

DATA " AT a A a PL ACE aWH ERE a TH E a SL OPE a FLATTEN S a OU T a AN D aH EADS ..NORTH " 
srem 42351 

DATA 0,31,0,0,0,0, "INaAaLOWaREDaROOMaBORDERINGaAaDEEPaPOOL" srem 10021 

DATA 0,36,0,0,35,34 srem 50004 

DATA 

"IN*A*STEEP-WALLEDCAVERN. ^A^SWIRLING^RIVER^RUSHES^BY^AT^YOUR^FEET" 
srem 31550 

DATA 0,0,0,0,33,0 srem 5052 

DATA "DOWNSTREAMaINaTHEaRIVERaCANYON.aaTHEaWATERaAPPEARSaDEEPERaHERE" 
srem 32414 

DATA 0,0,0,0,0,33,"UPSTREAM. aaTHEaCANYONaWALLSaOJLYaLOOMaEVENaHIGHER" 
srem 25251 

DATA 33,37,0,38,0,0,"INaAaTRIANGULARaSHAPEDaROOM" srem 49939 
DATA 36,51,0,45,38,0, 

"INaAaREDDISHaWALLEDaCAVERN,aEDGINGaAaMURKYaLAKE" srem 32982 
DATA 36,0,0,0,39,37, 

"INaAaNONDESCRIPTaROOM.aaCOOLaAIRaBLOTSaFROMaABOVE" srem 49145 
DATA 0,0,0,0,0,38 srem 31899 

DATA "INaAaROCKYaROOMaWITHaLIGHTaPEEKINGaTHROUGHaAaHOLEaINaTHEaROOF" 
srem 140 87 

DATA 0,0,0,41,0,0,"STANDINGaONaAaROCKYaDOME" srem 26285 
DATA 10,0,40,0,0,0 ,"TRUDGINGaALONGaAaCURVED,aUPHILLaPATH" srem 37348 
DATA 0,0,0,7,0,0 ,"ATaTHEaWESTaENDaOFaAaDEEP, ..INVITINGaLAKE" srem 21055 
DATA 7,0,0,0,0,0 ,"STANDINGaATaTHE a EDGEaOFaAaGIANTaCLIFF" srem 55404 
DATA 0,30,0,0,0,0 ,"STANDINGaINaAaTIGHTaALCOVE" srem 18718 
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40450 

40460 

40470 

40480 

40485 

40490 

40500 

40510 

40520 

40530 

40540 

40550 

41000 

41010 

41020 

42000 

42010 

42020 

42030 

43000 

43005 

43010 

43015 

43020 

43025 

43030 

43040 

43050 

43060 

43070 

43500 

44000 

44010 

44015 

44020 

44030 

44040 

44050 

44055 

44060 

44070 

44080 

44090 

44100 


DATA 0,0,37,0,0,0, "IN a A a SQUARE a ROOM" srem 23540 

DATA 47,47,47,47,47,47,"RESTING ^CN*A a CLOUDBANK,sABOVE a MIAMI" srem 64227 
DATA 46,46,46,46,46,46 ,"AT a THE a PEARLY a GATES" :rem 55425 
DATA 0,0,0,19,0,0 :rem 24827 

DATA "IN a THE a HALL a OF a ICICLES. aa STRANGE a SPIRES A COVER A THE A FLOOR" 

:rem 26351 

DATA 1,0,0,0,0,0,"IN a A a STORAGE a CLOSET" srem 13223 

DATA 0,0,13,0,0,0,"IN a THE a HALL a CLOSET" srem 57738 

DATA 37,0,0,0,0,0,"IN a A a ROUND a ROOM" srem 54956 

DATA 20,53,0,0,0,0,"IN^A^LONG, a NARROW*TUBE" srem 45405 

DATA 52,54,0,0,0,0,"IN a A a LONG, a NARROW a TUBE" srem 7620 

DATA 53,55,0,0,0,0,"IN^AaLCNG, a NARROWaTUBE" srem 53562 

DATA 54,0,0,0,0,0,"AT a THE a END a OF a THE a TUBE" srem 46005 

DATA N,NORT,S,SOUT,E,EAST,W,WEST,U,UP,D,DOWN,L,LOOK,I, INVE,SAY,GET, 

TAKE srem 36669 

DATA DROP,EXAM,READ,LIGH,DIVE,SWIM,WEAR,UNWE,IGNI,PUSH,PRES,THRO,SCOR 
srem 14072 

DATA QUIT,OPEN,JUMP,Q srem 41400 

DATA PARA,1,BUCK,2,BROC,4,MATC,5,XYZ Z,-13,PLUG,-13,RITN,-13,DOOR,-3 
srem 24023 

DATA SCUB,6,RING,7,KEY,8,GOLD,9,GAUG,-6,BRUS,10,LABE,-6,AUTO,-14,RED, 
-14 srem 57047 

DATA BLUE,-14,GIRA,17,GRAF,-16,SIGN,-19,RUBI,20,CUBE,20,MINK,21,COAT, 
21 srem 50653 

DATA BUTT,-14,CASH,23,MONE,23 srem 41206 

DATA PARACHUTE,-1,BUCKET,-1,DOOR,12,"TRAVEL^BROCHURE" srem 52835 

DATA 21,"PRINTED a MATCHBOOK" srem 22957 

DATA 35,"SCUBA a EQUIPMENT", 16 srem 57303 

DATA "SIX a INCH a PLASTIC a RING", 45,"*$10,000*",0 srem 32538 

DATA "*HEAVYaNUGGETaOFaGOLD*",34,"DRYaPILEaOFaBRUSH" srem 3950 

DATA 51,"SOGGY A PILE A OF A BRUSH",0 srem 11701 

DATA "SOGGY^MATCHBOOK",0, <$>,0,AUTOPILOT,3,"RAGINGaBRUSH A FIRE", 0 
srem 32207 

DATA "GRAFFITIaCOVERINGaTHEaWALL",9,"*STUFFEDaGIRAFFE*", 0 srem 33713 
DATA "CELLAR a STAIRWAY a LEADING a DOWN",11,"SIGN a CN a THE a WALL", 49 srem 4424 
DATA "*PLATINUM^RUBIK'S a CUBE a (TM)*",29,"*MINK a COAT*", 50 srem 22175 
DATA "SCORCHED a AREA a ON a THE a WALL", 0,"$10,000",4 srem 10250 
DATA NOVICE,5,AMATEUR,30,EXPERIENCED,50,PRO,70,MASTER,90,GRANDMASTER, 
999 srem 11661 

READ RC,VC,NC,OC,CC srem 51252 

DIM RM$(RC),MV%(RC,6),VB$(VC),NN$(NC),PN%(NC),OB$(OC),OL%(OC),RT$(CC) 
srem 34063 

DIM RP%(CC)SPRINT ■(whtJSETTING A UP...(pur>" srem 41972 
FOR X=1 TO RCsFOR Y=1 TO 6 sREAD MV%(X,Y)sNEXT YsREAD RM$(X)s 
NEXT X srem 25016 

FOR X=1 TO VCsREAD VB$(X)sNEXT X srem 64301 

FOR X=1 TO NCsREAD NN$(X),PN%(X)sNEXT X srem 26178 

FOR X=1 TO OCsREAD OB$(X),OL%(X)sNEXT X srem 18553 

FOR X=1 TO CCsREAD RT$(X),RP%(X)sNEXT X srem 62565 

CP=1sDR$="NSEWUD"sEM$(1)="WHAT?"sEM$(2)="I^DON'T.UNDERSTAND a THAT." s 

EM=1 srem 39592 

PRINT "(clr)"sML=4sAL=11 srem 246 
DEF FNW(X)=OL%(ABS(PN%(X))) srem 53855 
DEF FNR(X)=(PN%(X)>0) srem 31297 
DEF FNF(X)=(PN%(X)<0) srem 63041 
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44110 DEF FNT(X)-(LEFT?(OB$(X),1)=”*") srem 47206 
44999 GOTO 7000 srem 21854 

389 lines, proof number = 36299 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in MISER-II 


RM$0 Room descriptions 
MV%()Move maps 
VB$0 Verbs 
NN$() Nouns 

PN$0 Noun to object pointers 
OB$() Objects 
OL%() Object locations 
EM$() Error messages 
RT$() Ratings 
RP%() Ratings point values 
RC Room count 
VC Verb count 
NC Noun count 
OC Object count 
RC Ratings count 
RT$ Rating given 
CP Current position 
EM Current error position 


SC Spaces counter 

SF Spaces found 

CV$ Command verb 

CV Command verb number 

CN$ Command noun 

CN Command noun number 

ML Matches left 

MB Match burning 

FB Fire burning 

DD Dead 

DC Dead message counter 
AC Angel counter 

WS Wearing scuba 

AL Air left 

ES Explosion sequence 

EX Explosion happened 

S Score 

TV Trigger voice 


How MISER-II Works 


500-610 Background processes 

700-840 Parse the input and look up words 

900-990 Jump tables to command routines 

1000-1010 North 

2000-2020 South 

3000-3010 East 

4000-4010 West 

5000-5010 Up 

6000-6010 Down 

7000-7180 Look 

8000-8210 Inventory 

9000-9110 Say 

10000-10070 Get 

11000-11110 Drop 

12000-12400 Exam 

13000-13310 Read 

14000-14060 Light 

15000-15610 Dive 

16000-16030 Wear 

17000-17020 Un -wear 

18000-18020 Throw 

19000-19130 Push 

20000-20550 Score 

21000-21070 Quit 


22000-22010 Open 

23000-23110 Jump 

30000-30020 Output Routine 

31000 Error “What?” 

32000-32010 Error “What is a...” 

33000 Error “Not here...” 

34000 Error “(Verb) what?” 

35000-35040 Check availability of object 

36000 Dead 

37000 Can't go that way 

40000 How many rooms, verbs, nouns, objects, 
score, classes 

40010-40550 Room data: destinations for N,S,E,W,U,D, 
and room descriptions 

41000-41020 Verbs 

42000-42030Noun and pointer to its object. Positive 
number is a “real” object (can be picked 
up). Negative number is a fixed object 
(exists but can't be taken). 

43000-43070 Objects and the room they start in 

43500 Score classes, title, and minimum score to 
get that class 

44000-44999 Dimension arrays and fill with appropriate 
data 




SKEET 


Bob Carr 


Y ou are at the gun club, trying to shoot 
the clay pigeons thrown overhead. 
After entering the names of the two 
players, the skeet range will be shown, with the 
message "PRESS A KEY.” When you do, your 
person will appear, with shotgun aimed and 
ready to fire. The clay target will be thrown 
from behind your back, and you press a key (the 


S13LO SCOTT 

l 



space bar is handy) to fire. Each time you miss, 
the opposing team gets a point. When you hit a 
target, you get two points. In "doubles,” two 
targets are thrown at the same time, and you 
get four points if you hit them both. The winner 
is the first person to have 20 or more total 
points and be at least two points ahead of the 
other player. 


1 PG$= ,, SKEET n sAU$="BOB*CARR"sBG$="RETURN" srem 9056 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 srem 51784 

100 FOR Z=SID TO SID+28:POKE Z,0:NEXT Z srem 34188 

110 PRINT "(clr 3°down)ENTER*NAMES*IN *6 *OR*FEWER*LETTERS" srem 40101 
120 PRINT "{2°down}WH0*IS*TEAM*A'S*CAPTAIN?*";sGOSUB 60000sIF IN$="Q" THEN 
60600 srem 27670 

125 IF IN$="" THEN IN$="TEAM{shift-space}A" srem 2911 
130 T$=LEFT$(IN$,6)s srem 9752 

140 PRINT "(2°down)WHO*IS*TEAM*B'S*CAPTAIN?*";sGOSUB 60000sIF IN$="Q" THEN 
60600 srem 29825 

145 IF IN$=" n THEN IN$="TEAM{shift-space)B" srem 25114 
150 M$=LEFT$(IN$,6) srem 61778 

160 POKE SID+7,237sPOKE SID+8,5sPOKE SID+12,9sPOKE SID+13,9 srem 19141 
170 POKE SID+5,100sPOKE SID+6,100sPOKE SID,0sPOKE SID+2,0s 
POKE SID+3,8 srem 7168 

180 POKE SID+1,0 sPOKE SID+4,65sPOKE SID+24,15 srem 15384 
190 Z=PEEK(VIC+17)sPOKE VIC+17,0 srem 63145 

200 POKE VIC+33,7 SPRINT "{yel}"SPRINT "{clr>";sPOKE VIC+33,0 srem 15112 
210 POKE VIC+17,Z srem 26370 

220 PRINT "{12°down red rvs-on}*(*}" SPC(36) "*Ueft inst £}" srem 8961 
230 PRINT "{rvs-on}**{*}" SPC(34) "{£}*{left inst>*{rvs-off>" srem 27324 
240 PRINT "{wht}*{M>" SPC(36) "*{left 2°inst G)" srem 11179 
250 PRINT "( blu rvs-on + rvs-off wht M>" SPC(36) "( blu rvs-on + rvs-off 
wht left inst G>" srem 55834 
260 PRINT "*(M)" SPC(36) "(G)" srem 49772 
270 PRINT "{grn)*{+£+}" SPC(32) "{+£+>" srem 32387 
280 PRINT "*{^+£>" SPC(30) "{ £-■t-G ) 11 srem 20747 
290 PRINT "{ +£+£+ }" SPC(30) "{+£ 2°+ left inst -}" srem 15337 
300 PRINT "*{3°+}" SPC(31) ”{2°+ £+}" srem 59959 
310 PRINT "*{2°+ SPC(29) "{ £-+-+ ) 11 srem 36863 

320 PRINT "{wht}**{QK 32°@ " srem 13347 
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330 PRINT "(right £UT 3°£)";sFOR X=1 TO 32:PRINT "(+)"; sNEXTs 
PRINT "(3°£ wht>” srem 18139 

340 FOR X=1 TO 39:PRINT "(Y)"jsNEXTsPOKE CRT+WD*24+39,119s 
POKE CM+WD*24+39,1 :rem 50196 
350 G=SID+lsBF=198 srem 9592 

360 PRINT "(home}" T$:PRINT "(home)" TAB(40-LEN(M$)) "(rvs-on}" M$ 
srem 40617 

370 Z$="(9°up)" srem 19311 

380 A$="(M down rvs-on * rvs-off RI 3°left down rvs-on 2°C rvs-off K 
3°left down * rvs-on) A (rvs-off K 3°left down M rvs-on)^(rvs-off H 
3°left)" srem 57597 

390 A$=A$+"(down blu rvs-on £) A (rvs-off 3°left down rvs-on £ rvs-off £ 
rvs-on) A (3°left down) A (right) A (3°left down V right V rvs-off)" 
srem 63172 

400 B$="(N 4°left down UR rvs-on £ rvs-off 3°left down J rvs-on 2°V 
rVs-off 3°left down rvs-on K) A (rvs-off £ 3°left down N rvs-on) 
A (rvs-off G 2°left)" srem 49651 

410 B$=B$+"(down blu rvs-on) A (* 2°left down) A (rvs-off * rvs-on * 3°left 
down) A (right) A (rvs-off) n srem 19177 
420 B$=B$+"(3°left down rvs-on C right C rvs-off wht)" srem 47325 
430 C$="(left) a (G 3°left down UR rvs-on * rvs-off 3°left down J rvs-on 
2°V rvs-off 3°left down rvs-on K) A (rvs-off £ 3°left down N rvs-on) 

A {rvs-off H 3°left) n srem 19034 

440 C$=C$+"(blu down L rvs-on) A (j^ rvs-off 3°left down N rvs-on N) 
A (rvs-off 3°left down N rvs-on N) A (rvs-off)" srem 29994 
450 C$=C$+"(3°left down DK rvs-on C rvs-off)" srem 55080 
460 A$=A$+"(4°left wht)"+Z$sB$=B$+Z$sC$=C$+"(left)"+Z$+"(wht)"s 
Z$="" :rem 44506 

470 D$="(home 16°down 19°right)" srem 27551 

480 E$=" AA (5°left down 7°space 7°left down 7°space 7°left down 7°space 
7°left down 7°space 7°left down)" srem 39780 
490 E$=E$+"(7°space 7°left down cyn 7°R 6°left down pur 5°+ 8°left down 
wht * pur 9°+ wht £ home)" srem 2844 
500 POKE GrOsBB-.5sGOTO 620 srem 14871 
510 IF Z$="Q" THEN 1320 srem 7670 
520 BB=BB+.5sIF P>0 THEN 560 srem 60207 

530 FOR Z=1 TO 2sPOKE G,250sFOR X=1 TO 200sNEXT srem 10122 
535 POKE G»0sFOR X=1 TO 99sNEXTsNEXT srem 63120 
540 IF BB=INT(BB) THEN F*F+lsGOTO 580 srem 2877 
550 E=E+1sGOTO 580 srem 16904 

560 FOR Z=1 TO PsGOSUB 1250sNEXTsPOKE G,0 srem 34410 
570 IF BB=INT(BB) THEN E=E+PsP*0 srem 25635 

580 F=F+PsP=0SPRINT "(home 2°down)" EsPRINT "(home 2°down)" SPC(36)F 
srem 11715 

590 IF E=F THEN 620 srem 32359 

600 IF E>20 AND E>F AND BBOINT(BB) OR F>20 AND F>E AND BBOINT(BB) THEN 
1270 srem 16758 

610 FOR X=1 TO 999sNEXTsPOKE G,50sFOR X=1 TO 50:NEXTsPOKE G,0 srem 228 
620 DB S 0SPRINT D$E$sGOSUB 1360:C=RND(1)sL=L+lsIF BB=2.5 THEN 
BB=.5 srem 63409 
630 POKE SID+11,128 srem 49992 
640 IF L>10 THEN L=1 srem 5430 

650 CH=lsAA=16sA=CRT+ll*WDsB=CRT+WD*ll+39 srem 42481 
660 IF L<>9 THEN 680 srem 35025 

670 PRINT D$ "(3°left rvs-on)DOUBLES(rvs-off)":FOR Z=1 TO 4s 
POKE G,100 srem 62027 
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675 FOR X=1 TO 75:NEXT:POKE G,0:NEXT :rem 38548 

680 POKE BFf 0:PRINT D$; *{5°lef t}PRESS„A A KEY" srem 56251 

690 GET Z$:IF Z$=" n THEN 690 srem 39278 

700 PRINT D$,*"{5°left ll°space}" srem 56975 

710 IF Z$="Q" THEN 1320 srem 10068 

720 POKE G f 90sFOR Z=1 TO 20sNEXTsPOKE G,0 srem 54049 

730 POKE BF,0 srem 3601 

740 IF BB>1 OR L>8 THEN 760 srem 50222 

750 PRINT D$A$;sGOSUB 880sGOTO 970 srem 16036 

760 IF L>8 THEN 780 srem 44921 

770 PRINT D$B$;sGOSUB 880sGOTO 890 srem 42393 

780 PRINT D$ "{3°left 7°space}" D$C$;sGOSUB 880sPP=81 srem 13808 
790 FOR X=1 TO 10sPOKE A f 32sA=A-WD+1sPOKE A, 81sPOKE B f 32sB«B-WD-ls 
POKE B f 81 srem 16805 

800 FOR Z-l TO IOsNEXTsIF AA=16 THEN GOSUB 1050 srem 25561 
810 GOSUB 1130sNEXTsFOR X=1 TO 19sPOKE A,32 srem 65307 
815 A= A+lsPOKE A,PPsPOKE B,32sB-B-lsPOKE B f 81 srem 48749 
820 IF AA=16 THEN GOSUB 1050 srem 63696 

830 GOSUB 1130sIF PEEK(B+WD)=46 THEN D=BsP=P+4sDB=lsGOSUB 1160sDB=0s 
GOTO 1160 srem 56764 

840 IF PEEK(A+WD)=46 THEN D=AsP=P+2sDB=lsGOSUB 1160 srem 29031 
850 GOSUB 1130sNEXTsFOR X=1 TO 10sPOKE A, 32 srem 17 
855 A=A+WD+1sPOKE A,PPsPOKE B r 32sB=B+WD-l srem 11801 
860 POKE Bf81sIF AA=16 THEN GOSUB 1050 srem 54732 

870 GOSUB 1130sNEXTsPOKE A,32sPOKE B r 32sPRINT " A "sGOTO 510 srem 42296 
880 FOR X=1 TO C*3000sNEXTsRETURN srem 10619 
890 FOR X=1 TO lOsPOKE A,32sA=A-WD+lsPOKE A,81sIF AA=16 THEN 
GOSUB 1050 srem 6384 

900 GOSUB 1100sIF CC.25 THEN FOR Z=1 TO 40sNEXTsGOSUB 1100 srem 4252 
910 NEXTsFOR X=1 TO 20sPOKE A f 32sA=A+lsPOKE A f 81sIF AA=16 THEN 
GOSUB 1050 srem 45559 

920 GOSUB 1100sIF C<.25 THEN FOR Z=1 TO 30sNEXTsGOSUB 1100 srem 6231 
930 NEXTsFOR X=1 TO 9sPOKE A,32sA=A+WD+1sPOKE A r 81sIF AA=16 THEN 
GOSUB 1050 srem 60577 

940 GOSUB HOOsIF PEEK(A)=46 THEN D=AsP= P+2sGOTO 1160 srem 1926 
950 IF PEEK(A+WD+1)=58 OR PEEK(A+WD-1)=46 THEN D=A+WD+15P=P+1s 
GOTO 1160 srem 9054 

960 NEXTsPOKE A/32sAA=16sPRINT "^"sGOTO 510 srem 48906 
970 FOR X=1 TO lOsPOKE B,32sB=B-WD-lsPOKE B f 81sIF AA=16 THEN 
GOSUB 1050 srem 62958 

980 GOSUB 1070sIF CC.25 THEN FOR Z=1 TO 40sNEXTsGOSUB 1070 srem 50821 
990 NEXTsFOR X=1 TO 19sPOKE B f 32sB=B-lsPOKE B f 81sIF AA=16 THEN 
GOSUB 1050 srem 48593 

1000 GOSUB 1070sIF CC.25 THEN FOR Z=1 TO 30sNEXTsGOSUB 1070 srem 7242 
1010 NEXTsFOR X=1 TO 10sPOKE Bf32sB=B+WD-1sPOKE B,81sIF AA=16 THEN 
GOSUB 1050 srem 61704 

1020 GOSUB 1070sIF PEEK(B)=46 THEN D=BsP=P+2sGOTO 1160 srem 40770 
1030 IF PEEK(B+WD+1)=46 OR PEEK(B+WD-1)=46 THEN D=B+WD-1sP=P+ls 
GOTO 1160 srem 35787 

1040 NEXTsPOKE B f 32sAA=16sPRINT " A "sGOTO 510 srem 52334 
1050 GET Z$sIF Z$ = "" THEN RETURN srem 7748 
1060 AA=0sPOKE SID+11 , 129sRETURN srem 11018 

1070 IF AAC14 THEN PRINT "(yel) A (2°left up wht).tleftJ"jsAA=AA+l srem 6022 
1080 IF AA=14 THEN PRINT "{yel} A {wht left> n ;sAA=AA+l srem 55374 
1090 RETURN srem 27656 
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1100 IF AA<14 THEN PRINT n {yel> A (up wht>.{left)";:AA»AA+1 srem 44809 
1110 IF AA=14 THEN PRINT "{yel} A {wht left):AA=AA+1 teem 12122 
1120 RETURN teem 26664 

1130 IF AAC15 THEN PRINT "(yel) A {left up wht).(left)";:AA=AA+1 teem 29398 
1140 IF AA=15 THEN PRINT "{yel) A twht left)"* teem 20979 
1150 RETURN teem 39895 

1160 POKE G,224tPRINT "{yel} A {wht}":POKE G,55tPOKE A,32:POKE B,32: 

POKE D,42 teem 32799 

1170 POKE D-l,160tPOKE G,205:POKE D+1,160:POKE D-WD r 160t 
POKE D+WD,160 teem 38788 

1180 FOR Z=105 TO 0 STEP -5:POKE G,Z:NEXT teem 11346 

1190 POKE D-l,64:POKE D+l,64:POKE D-WD,93:POKE D+WD f 93 teem 31376 

1200 POKE D-WD-l,77:POKE D+WD+1,77tPOKE D-WD+1,78:POKE D+WD-1,78: 

POKE D f 170 teem 2662 

1210 FOR Z=55 TO 245 STEP 5:POKE G,ZtNEXTtPOKE D,32 teem 14424 
1220 POKE D-l,32:POKE D+l,32:POKE D-WD-1,32:POKE D+WD+1,32: 

POKE D-WD+1,32 teem 33397 

1230 POKE D+WD-1,32:POKE D+WD,32:POKE D-WD,32 teem 51549 
1235 POKE G,0:IF DB=1 THEN PP=32:AA=17:RETURN teem 14679 
1240 FOR X=1 TO 500tNEXTtGOTO 510 teem 36346 

1250 FOR X=156 TO 230:POKE G,X:NEXT:FOR X=156 TO 205 STEP 2:POKE G,X: 

NEXT teem 15972 

1260 FOR X»205 TO 105 STEP -ltPOKE G,X:NEXT:POKE G,0:RETURN teem 5461 
1270 PRINT "{home}" T$:PRINT "{home}" TAB(40-LEN(M$))M$ teem 35048 
1280 PRINT "{home down}";:IF E<F THEN PRINT SPC(34); teem 52723 
1290 PRINT "{evs-on}WINNER{evs-off 6°left}"; teem 62364 
1300 FOR Z=1 TO 3tPRINT "{6°space 6°left}";:FOR X=55 TO 235:POKE G,Xt 
NEXT teem 18090 

1310 POKE G,0tPRINT "{evs-on}WINNER{evs-off 6°left}";:FOR X=1 TO 500tNEXT: 
NEXT teem 4201 

1320 GET Z$:IF Z$<>“" THEN 1320 teem 12464 

1330 PRINT D$E$tPRINT SPC(12);"{3°down}PLAY A AGAIN? A ";: 

GOSUB 60000 teem 30612 

1340 IF LEFT$(IN$,1)="N" THEN 60600 teem 10890 
1350 E=0:F=0:GOTO 190 teem 37713 

1360 FOR Z-CRT TO CRT+39:IF PEEK(Z)=32 THEN 1380 teem 48825 
1370 POKE Z,(PEEK(Z)+128) AND 255 teem 30739 
1380 NEXTtRETURN teem 13082 

192 lines, peoof numbee = 6401 


Reminder: Now be sure to enter the standard 
frameworic lines 60000 to 62200. See page XV 
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Important Variables in SKEET 

A Address of pigeon moving right 

A$ Graphics symbols to print man facing left 
AA Counter for bullet position in sky 
B Current screen adaress of pigeon moving left 
B$ Graphics symbols to print man facing right 
BB Current player and pigeon direction 
BF Address of number of keys in keyboard buffer 
C Random delay for pigeon movement 

C$ Graphics symbols to print man facing up 
D Screen location where pigeon is shot by bullet 
DB Flag for a ''double-whistle” sound effect 
E Score of player A 


E$ Graphics symbols to erase man and draw bottom 
of screen 

F Score of player B 

G Address of sound pitch 

L Current round number; if < > 8 it signals 
doubles skeet shooting 
M$ Team B's name 

PP Screen POKE value for pigeon 

P Points in one round 

T$ Team A's name 

Z$ Current key press 


How SKEET Wprks 


100-150 

Input names of players 

970-1040 

Move pigeon left 

160-180 

Initialize sound 

1050-1060 

Get key press for shooting 

Move bullet left and up 

190-340 

Draw background scenery 

1070-1090 

350-500 

Initialize variables 

1100-1120 

Move bullet right and up 

510-610 

Add points to player's score and check for a 

1130-1150 

Move bullet straight up 


winner 

1160-1240 

Explode pigeon and create whistling sound 

620-780 

Main loop: switch players and determine 


effect 


next shot 

1250-1260 

Sound effect for next round 

790-870 

Move double pigeons 

1270-1350 

Display winner and ask for another game 
Highlight name of current players 

880 

890-960 

Delay routine 

Move pigeon right 

1360-1380 



WEATHER 


f reading 1? 


Randall Lockwood 


Pressure was... ? 20.7 
Tiwe of readifry 2? 2 
Pressure was... ? 29.0 


Wind direction 

1 . north 

2. ne 

3. east 
■1. se 

3. south 
B. sw 
7. west 
8 . nw 

Which one? §| 


T his is a fun program to use to experi¬ 
ment with trying to predict the 
weather. By entering two barometer 
readings (between 28 and 31.9), wind direction, 
sky condition, and temperature, it will attempt 


to give you a short-range forecast. (One user 
told us it predicted a snowstorm the local 
weatherperson missed.) We make no claims 
that WEATHER is accurate or correct, but 
think you'll have fun with it anyway. 


1 PG$="WEATHER":AU$="RANDALL a LOCK^QOD":BG$="RETURN" srem 44409 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 srem 51784 

100 POKE VIC+32,OsPOKE VIC+33,0sPRINT "(clr wht)";CHR$(14) :rem 46873 
110 DIM Z(4) :rem 12217 

120 PRINTsPRINT "(clr down blu B}AROMETER a READINGS:" srem 25994 
130 FOR 1=1 TO 2 srem 36351 

140 PRINT "(down T}IME a OF a READING“ I "{left}? A ";sGOSUB 60000: 

TM=VAL(IN $) srem 59380 
145 IF IN$="Q" THEN 60600 srem 64530 
150 IF RIGHT$(IN$,2)="PM" THEN TM=TM+12 srem 11601 
160 IF TM<1 OR TM>24 THEN PRINT ”{red}l A TO A 24,PLEASE.{blu)": 

GOTO 140 srem 56720 

170 PRINT "(down P}RESSURE a WAS... a ? a ";:GOSUB 60000:B=VAL(IN$) srem 48700 
175 IF IN$="Q" THEN 60600 srem 18214 

180 IF B<28 OR B>=32 THEN PRINT "(red>28 A TO A 31.9,PLEASE.(blu)": 

GOTO 170 srem 36303 

190 Z(I)=TM:Z(1+2)=B:NEXT I srem 20326 

200 T1=Z(1):Bl=Z(3):T2=Z(2):B2=Z(4) srem 30725 

210 H=7 srem 28687 

220 IF B2>=28.8 THEN H=6 srem 63501 

230 IF B2>=29.2 THEN H=5 srem 12254 

240 IF B2>=29.5 THEN H=4 srem 13200 

250 IF B2>=29.7 THEN H=3 srem 56427 

260 IF B2>=29.9 THEN H=2 srem 38019 

270 IF B2>=30.1 THEN H=1 srem 20833 

280 IF B2>=30.4 THEN H=0 srem 9039 

290 B=B1-.05*COS((ABS(Tl-lO)/12)*2*{pi}) srem 55180 

300 E=B+.05*COS((ABS(T2-10)/12)*2*{pi>):D=B2-E srem 893 

310 V=0 srem 52279 

320 IF DC.15 THEN V=1 srem 9358 

330 IF DC.07 THEN V=2 srem 43160 

340 IF DC-.07 THEN V=3 srem 49675 

350 IF DC-.15 THEN V=4 srem 55525 

360 PRINTsPRINT "(2°down qrn W)INDIRECTION (down)" srem 29717 
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370 FOR 1=1 TO 8:READ X$:PRINT I "{left}.,." X$sNEXT srem 192 
380 DATA NORTH,NE,EAST,SE,SOUTH,SW,WEST,NW :rem 51643 
390 PRINT "{down W}HICH A ONE?*";sGOSUB 60000sW=VAL(IN$)-1 srem 9639 
395 IF IN$="Q" THEN 60600 srem 25135 

400 IF W<0 OR W>7 THEN PRINT "(red E}NTER A DIRECTIONAl-8*PLEASE{grn}": 

GOTO 390 srem 62405 

410 PRINT "{2°down cyn S}KY*CONDITION{down}" srem 14586 
420 FOR 1=1 TO 5sREAD X$sPRINT I "{left}.,." X$sNEXT I srem 54558 
430 DATA CLEAR,PARTLY,.CLOUDY,MOSTLY*CLOUDY,OVERCAST,RAIN srem 7349 
440 PRINT "{down W}HICH*0 NE?a"; sGOSUB 60000sC=VAL(IN$)-l srem 15332 
445 IF IN$="Q" THEN 60600 srem 12912 

450 IF C<0 OR 04 THEN PRINT "{red EINTER,.CONDITION*l-5*PLEASE{cyn}"s 
GOTO 440 srem 29914 

460 PRINT "{2°down blk P}RESENT,.TEMPERATURE* (FAHRENHEIT) ?*"; sGOSUB 60000s 
T=VAL(IN $) srem 42812 
465 IF IN$="Q" THEN 60600 srem 37582 

470 PRINT "{clr yel H}ERE^IS*THE*FORECAST*FOR a YOUR*IMMEDIATE" srem 61149 
480 PRINT "AREA*FOR*THE*NEXT*6*TO*24*HOUR*PERIODs{2°down}" srem 13574 
490 N= 200*W+25*H+5*V+C-4sIF N>0 THEN FOR 1=1 TO NsREAD X$sNEXT srem 9930 
500 FOR 1=1 TO 5sREAD F$(I)sNEXTsJ=5 srem 58675 
510 F$=F$(J)sIF F$="" THEN J=J-1sGOTO 510 srem 31245 
520 H=0sM$=""sA$="" srem 42986 

530 Y=ASC(LEFT$(F$,1))-64sIF Y>13 THEN 550 srem 33959 
540 ON Y GOTO 570,580,590,600,620,600,640,640,560,780,670,680,700 
srem 17785 

550 CN Y-13 GOTO 690,560,710,560,720,730,740,730,560,750,760,760 
srem 62086 

560 PRINT "{U}NKNOWN*ERROR"sGOTO 910 srem 7392 
570 PRINT "{F}AIR"sGOTO 820 srem 45387 

580 PRINT "{F}AIR*AND*GENERALLY*WARMER"sGOTO 820 srem 35788 
590 PRINT ”{F}AIR*AND*GENERALLY*COOLER"sGOTO 820 srem 14164 
600 PRINT ”{V}ARIABLY*CLOUDY,*";sIF Y=6 THEN 

PRINT "COOLER*WITH*A*CHANCE*OF*"; srem 10814 
610 PRINT "LIGHTaPRECIPITATION."sGOTO 820 srem 6138 
620 PRINT "{P}ARTLY*CLOUDY a WITHaA*CHANCEaOFaSOME" srem 8472 
630 PRINT "PRECIPITATION.*{A}*WARMINGaTRENDaWILL"SPRINT "FOLLOW."s 
GOTO 820 srem 35132 

640 PRINT "{I}NCREASINGaCLOUDS*OR*OVERCAST." srem 58475 
650 IF Y=8 THEN PRINT "{W}ARMING*TREND."sT=T+8 srem 12769 
660 GOTO 780 srem 48522 

670 PRINT ”{W}ARMER."sPRINTsT=T+8sGOTO 780 srem 57316 
680 PRINT ”{C}OOLER."$PRINTsT=T-8sGOTO 780 srem 32930 
690 PRINT "{W}ARMER,aWITH*RAIN*LIKELY."sGOTO 820 srem 14479 
700 PRINT "{R}AIN*LIKELY."sGOTO 820 srem 63719 

710 PRINT "{T}URNINGaCOOLER" sM$="{I}MPROVEMENT"sH=24sGOTO 780 srem 44050 
720 M$=" {CLEARING" sH=12sGOTO 780 srem 6129 

730 M$="{I}MPROVEMENT"sA$="COOLER*WEATHER"sH=12sGOTO 780 srem 39540 
740 M$="{I}MPROVEMENT"sH=6sGOTO 780 srem 58441 
750 M$="{F}AIR"sA$="COOLER"sH=6sGOTO 780 srem 41617 
760 M$=" {CLEARING" sIF Y=25 THEN M$="THEN*"+M$ sA$="BECOMING*COOLER" 
srem 3397 

770 PRINT "{V}ARIABLY*CLOUDY"SPRINT "{S}LIGHT*CHANCEaOFa"; sGOSUB 950s 
GOTO 790 srem 20220 
780 GOSUB 940 srem 59628 

790 IF M$<>"" THEN PRINT M$;sIF A$<>"" THEN PRINT "*AND a " A$ srem 8241 
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IP H THEN PRINT "..WITHIN" H "HOURS"; :rem 6128 
PRINT :rem 34481 

PRINT "(down WJlNDSs*";$B$=RIGHT$(F$,1) :rem 17249 
IP B$-"N" THEN PRINT " A PROBABLY A INCREASING" srem 13990 
IP B$="F" THEN PRINT "13-24*MPH" :rem 25500 
IP B$="S" THEN PRINT "STRONG*(25-38*MPH) " :rem 44548 
IP B$="G" THEN PRINT "VERY*STRONG*040*MPH) " srem 57578 
IF B$="W" THEN PRINT "DANGEROUS*(55-73*MPH)" srem 39305 
IP B$="H" THEN PRINT "HURRICANE*FORCE" srem 536 
IP B$="D" THEN PRINT "DIMINISHING" srem 48818 
IF B$="U" THEN PRINT "UNCHANGED" srem 45382 

PRINT "(cyn 2"down A)NOTHER*FORECAST?* n ;sGOSUB 60000 srem 26501 
IP IN$="Q" THEN 930 srem 25217 

PRINT "{clr}"sIF LEFT$(IN$,1)<>"N" THEN RESTOREsGOTO 120 srem 16338 

GOTO 60600 srem 48832 

PRINT "{C)HANCE*OP* n ; srem 41649 

IF T>=40 THEN 990 srem 64132 

PRINT "SNOW"; sIP T>=30 THEN PRINT ", *SLEET,"; srem 1493 
IP T>=25 THEN PRINT "*OR*FREEZING*RAIN"; srem 41925 
PRINT "."sRETURN srem 35534 
IP T<50 THEN PRINT "RAIN*OR*"; srem 2092 

PRINT "SHOWERS";sIP T>=50 THEN PRINT "*OR*THUNDERSTORMS"; srem 37962 
PRINT "."sRETURN srem 12839 

DATA AD,,,,WD,AD,,,,TD,AD,,,XD,RD,AU,DU,GU,,JU,GN,,, srem 64431 
DATA MN,CU,,,,WU,CD,,,,UD,AD,,,XD,RD,AU,DU,GU,,JU,GN, srem 49966 
DATA ,,MN,CF,,,,WF,CU,,,,UU,AU,,,XU,RU,DU,,GU,,JU,GN srem 54532 
DATA ,,,MN,CF,,,,UF,CF,,,,UF,AU,,AF,XF,RF,DF,,GF,JF, srem 31125 
DATA JN,,LN,PN,,CS,,,YS,US,CP,,,FP,SF,CF,,YF,FF,SF,FS srem 39947 
DATA IiS,,,, LS,,,PS,, CS,,,PS,SS,CS,, PS,, SS,CS,FS,,,SS srem 3/^35 
DATA SS,,,,, LS,,PS,,,CG,, PG,, SG,CG,PG,, SG,, FG, SG,,, srem 22567 
DATA SG , ,, , , LG , , PG,, , PW, , , SW , , FW , , SW , , , SW , ,, , , SW, , , , , LW, , PW, , 
srem 49797 

DATA AU,,,,TU,AU,,,DU,RU,AU,,,GU,JU,DN,GN,,,MN,GN,,, srem 44776 
DATA MN,CU,,,,UU,AU,,,DU,RU,AU,,,GU,JU,DN,GN,,,MN,GN, srem 11979 
DATA ,,MN,CF,,,,UF,AU,,,DU,RU,AU,,,GU,JU,GN,,,,MN srem 2077 
DATA GN,,,,MN,CF srem 687 

DATA ,,YF,SF,CF,,,FF,SF,AF,,,GF,JF,GN,,,MN,,GS,MS,,, srem 14314 
DATA CS,,,PS, SS,CS,,, PS, SS, AS,XS, JS,,, JS,,MS,,,MS,,, srem 54090 
DATA ,YS,,PS,SS,,PS,,,SS,,LS,,,,,LG,PG,,,,PG,,,, srem 53074 
DATA SG,,,,,SG,,,,,LG,,,PG,,PW,,,,,PW,,,,,LW,,, srem 14016 
DATA ,LW,,,,,PW,,,,,PW,,,,,PH,,,, srem 47583 

DATA AU,,,DU,RU,AU,,,DU,JU,AU,,DU,GU,JU,EN,HN,,,NN,HN,,,,NN srem 5035 
DATA AU,,,DU,RU,AU,,,DU,JU,AU,,DU,GU,JU,EN,HN,,,NN,HN,,,,NN srem 48647 
DATA AU,,,DU,RU, AU,,,DU, JU, AU,,DU,GU, JU,HN,,,,NN,GN,,,,MN srem 61034 
DATA AF,,,DF,JF,AF,,,GF,JF,AF,,DF,GF,JF,GN,,,MN,,GS,MS,,, srem 63299 
DATA AS,DS,JS,,,DS,JS,,,,DS,JS,,,,JS,MS,,,,MS,,,, srem 27803 
DATA LS,,,,,LS,,,,,LS,,,,,I£,PG,,,,PG,,,,,LG,,,, srem 26680 
DATA LG,,,,, PG,,,,, PW,,,,, PW,,,,, LW,,,,, PW,,,, s r ero 5952 
DATA PW,,,,,PW,,,,,PH,,,, srem 56570 

DATA AU, , , DU, JU , AU , , , DU, JU, BU , , EU , HU, KU, EN, HN,,, NN, HN , ,,, NN , AU , ,, DU, 

JU srem 16667 

DATA AU , , , DU , JU, AU , , DU, GU, JU, HN,,,, NN, HN,,,, NN, AU, , , DU, JU, AU , , , DU , JU 
srem 44110 

DATA AU,,DU,GU,JU,HN,,,,NN,GN,,,,MN,AF,,,DF,JP,AP,,DP,GP,JP,AF,,GF,, 

JF srem 42424 
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DATA GNf r , MN r , GS, MS , , ,,DS, JSr r r r f r > r JSr r f r NS, JS, MS r m r MS , , , ,,LS 

srem 18076 

DATA ,,,, LS rrrr« LS , , , ,, LG , DG mm PG , ,, , , LG rrf rr LG , ,,,,PG, , , , ,PW ,,,, , PW 
trem 46364 

DATA , , ,, LW, ,, , , PW, ,, , , PW, , , , , PW, , , , , PH, ,,, Stem 64000 

DATA AU f r m DU , BU,, , , EU r BU / r f EU , KU , BN , HN,,,NN , HN 111 i NN , AU r m r DU , BU, , , , 

EU trem 36248 

DATA BU,,,EU,KU,EN,HN,,,KN,HN,,,,NN,AU,,,,DU trem 56642 
DATA AU,,,DU,JU,BU,,,EU,KU,HN,,,,KN trem 21027 

DATA GN,,,,MN,AF,,,DF,JF,AF,,,DF,JF,AF,,DF,GF,JF,GN,,,JN,MN,GN,,,MN,, 
DS trem 10383 

DATA JS, rSS, ,DP,JP,,SP,,JPirrrrJS,,,HS,rLS,,PS,,,SS,,,,,SS,,,,,SS,,,,, 
SS trem 24324 

DATA ,,,, LS,, PS,,, SG,,,,, SG,,,,, SG,,,,, SG,,,,, Ifi,, PG,,, SW,,,,, SW 
trem 19966 

DATA ,,,,SW,,,,,SW,,,,,LW,,PH,, trem 17058 

DATA AU,,,,DU,BU,,,,EU,BU,,,,EU,BN,EN,HN,,KN,EN,HN,,,KN,AU,,,,DU,AU,,, 
,DU trem 14267 

DATA BU,,,EU,RU,BN,EN,HN,,KN,HN,,,,KN,CF,,,,FF,AU,,,,TU,BU,,,XU,RU 
trem 60726 

DATA EN,HN,,,KN,HN,,,GN,JN,CF,,,YF,UF,AF,,,XF,RF,AF,,XF,DF,RF,GN,,,JN, 
,GN trem 33382 

DATA ,, JN,, CS,, YS, PS, US, CP, , FP, , SF,DP, PP, LP, SP, , JS, LS, , SS, , SS, , , , , CS 
trem 106 45 

DATA FS, , SS, , FS, ,, SS, , SS, ,, , , SS, ,,,, SS,, , , , PG,, SG, , , SG,, , , , SG, , , , , SG 
trem 29689 

DATA ,,,,SG,,,,,SW,,,,,SW,,,,,SW,,,,,SW,,,,,SW,,,, trem 28313 
DATA AD,,,,XD,BD,,,,XD,BD,,,,ED,BU,,EU,,KU,BN,,EN,HN,KN trem 51919 
DATA AU,,,,XU,AD,,,,XD,AD,,,,DD,BU,,EU,,KU,BN,EN,HN,,KN trem 6410 
DATA CF,,,,XF,AU,,,,XU,AU,,,,TU,BU,,EU,DU,JU,EN,,HN,,JN trem 34638 
DATA CF,,,,WF,CF,,,,WF,AU,,AF,,TF,AF,DF,GF,JF,,DN,GN,,JN,,CS 
trem 25800 

DATA ,, , WS, CF,,,, UF, AF, CF, , YF, UF,DF, , JF, SF,, LS, SS, , , , CS,,,, US 
trem 57485 

DATA CS,,, FS, US, CS, , FS, , S, FS,LS, SS, ,, SS, ,,,, CG, , YG, FG, UG trem 898 
DATA FG,,, UG,, FG, , SG,,, SG,, , ,, SG, , , , , FW, , ,SW, ,FW,,SW, , trem 53504 
DATA SW,,,,,SW,,,,,SW,,,, t r ero 14324 

DATA AD,,,,XD,AD,,,,XD,AD,,,,XD,BU,,EU,,KU,BN,,EN,HN,KN,CU,,,,YU 
trem 30347 

DATA AD,,,,XD,AD,,,,XD,BU,,EU,,KU,BN,EN,,HN,KN,CF,,,,YF,CU,,,,YU 
trem 61193 

DATA AU,,,,TU,AU,,DU,,JU,BN,EN,DN,GN,JN,CF,,,,WF,CF,,,,WF,AU,,AF,,TF 
trem 28320 

DATA AF,DF,,,JF,DN,,,JN,,CS,,,,WS,CF,,,,UF,AF,CF,,YF,UF,AF,DF,,SF,,FS, 
,SS trem 4263 

DATA , , CS,,,, WS, CS,,, YS, US, CS,, FS,, US, FS,, , SS, , SS, , ,,, CG, , , YG, UG, CG, , 
YG trem 36508 

DATA FG,UG,FG,,,SG,,FG,SG,,,,SG,,,,,CW,FW,,,UW,FW,,,SW,UW,SW,,,,,SW,,, 
, trem 21202 

DATA SW,,,,,* trem 24943 

213 lines, proof number » 50442 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 
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Important Variables in WEATHER 


B$ 

Wind force 

N 

Position of forecast in data 

B1 

First barometer reading 

T 

Present temperature 

B2 

Second barometer reading 

T1 

Time of first barometer reading 

C 

Sky condition 

T2 

Time of second barometer reading 

F$ 

Current weather prediction (in ASCII) 

V 

Barometer condition 

F$() 

Storage for predictions 

W 

Wind direction (numeric value) 

H 

Numeric code of second barometer reading for 
prediction 

Y 

Z() 

Numeric value of forecast 

Times and barometer readings 


How WEATHER Works 


100-190 

200-350 

360-400 

410-465 

470-520 


Input barometer readings and time of each 
reading 

Compute barometer conditions for forecast 

Input wind direction 

Input sky conditions and present 

temperature 

Compute position of forecast data and read 
from data until found 


530-550 

560-810 

820-900 

910-930 

940-1010 

1020-1600 


Branch to the correct forecast message 
General weather forecast messages 
Wind strength messages 
End of forecast: ask for another prediction 
Print chance of snow, sleet, showers, etc. 
Data for weather predictions 



HI-CALC 


Glen Fisher 


T his is just the program you need to 
figure out what the national debt will 
be in the year 2000. HI-CALC is a high- 
precision four-function calculator. It can han¬ 
dle results as large as 900 significant digits! To 
do a calculation, enter a number at the “ ?" 
prompt and press RETURN. Next, it will ask for 
an operation. To remind you of the possible 
choices, they are shown before the question 
mark. The four calculator functions (add, sub¬ 
tract, multiply, and divide) are obvious. To con¬ 
trol the number of places after the decimal 
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place, use the period as an operator. After you 
press RETURN, HI-CALC will ask for the number 
of places you want. If you need help, press a 
question mark. An equals sign is used to clear 
the calculator. As always in the programs in 
this book, press Q to quit. 

When HI-CALC is doing a long calculation it 
flashes the operator you used, just to let you 
know it’s still alive. When you start working 
with numbers with about 500 digits, it takes 
quite a while to perform the calculation. 


1 PG$="HICALC”sAU$="GLEN A FISHER"sBG$="RETURN" srem 215 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 srem 51784 
100 PR=300 srem 21059 
120 PL=5 sMX=1000 srem 20144 
130 DIM A%(PR+PR+1),E%(PR+1) srem 7785 
140 GOSUB 390 srem 49358 
150 GOSUB 1630 srem 49413 
160 GOSUB 1480 srem 11052 

170 PRINT "{down}. Qa?a"; sGOSUB 60000sPRINT srem 13997 
180 IF LEN (IN$) <>1 THEN 170 srem 33823 
190 IF IN$=”Q" THEN 60600 srem 64176 

200 FOR 1=1 TO 7 sIF IN$=MID$<".+-*/=?",1,1) THEN 220 srem 1812 
210 NEXT IsGOTO 170 srem 26643 

220 OP=IsIF OP=l THEN PRINT "HOW aMANYaDECIMALaPL ACES?" srem 20778 
230 IF OP=7 THEN GOSUB 390sGOTO 170 srem 37583 
240 GOSUB 1630 srem 5468 

250 ON OP GOSUB 310,490,480,680,800,280 srem 20958 

260 IF OPOl THEN PRINT ■ trvs-off >aa="sGOSUB 1790 srem 47809 

270 GOTO 170 srem 9512 

280 FOR 1=1 TO ELsA%(I)=E%(I)sNEXT I srem 43979 
290 AS=ESsAI=EIsAF=EFsAL=EL srem 55762 
300 RETURN srem 58464 

310 N=PLsIF EL=0 THEN PL=OsGOTO 370 srem 12534 

320 IF EF>0 THEN PRINT "USEaINTEGERS,aPLEASE."sRETURN srem 55592 
330 IF EI>2 THEN PRINT "CAN 1 TaKEEPaTHATaMANYaPLACES. "sRETURN srem 31139 
340 T=ES*E%(1)sIF EI=2 THEN T=T+MX*E%(2) srem 22521 
350 T=T/3sPL=INT(T) srem 49366 
84 



360 IF PLOT THEN PL=PL+1sPRINT "ADJUSTING*T0"; sT=PL*3sGOSUB 380 srem 5827 

370 PRINT "WAS";$T=N*3sGOSUB 380sRETURN srem 59492 

380 PRINT LEFT$ (" A -" ,2+(T>=0)) ;MID$ (STR$ (T) ,2) ;" a PLACES. ": 

RETURN srem 6532.2 

390 PRINT "(down}^FUNCTIONSs" srem 19245 

400 PRINT "(down). aa SET a CARRIED a DECIMAL a PLACES" srem 58285 
410 PRINT "{down)= AA START A NEW A CALCULATION" srem 16075 
420 PRINT "{down}+,srem 58157 

430 PRINT "(down) aaa ADD,SUBTRACT,MULTIPLY,DIVIDE" srem 56459 

440 PRINT "{down>? AA PRINTS A THIS A MESSAGE" srem 51321 

445 PRINT "{down)Q AA QUITS" srem 22461 

450 PRINT "{down>#? A MEANS A 'TYPE A A A NUMBER'" srem 54035 

460 PRINT "(down}PRECISI0N A IS";PR*3;"DIGITS." srem 13754 

470 PRINT "CARRYING a AT a MOST";3*PL;"DECIMAL a PLACES." srem 30152 

475 RETURN srem 31640 

480 ES=-ES srem 52627 

490 IF AI+EF>PR AND EL>0 THEN N=PR-AIsGOSUB 1450 srem 3870 

500 IF EI+AF>PR AND AL>0 THEN N=PR-EIsGOSUB 1300 srem 56257 

510 IF AL=0 THEN GOSUB 1480 srem 19867 

520 IF EL=0 THEN 620 srem 52365 

530 IF AF>EF THEN N=AFsGOSUB 1180 srem 58272 

540 IF EF>AF THEN N=EFsGOSUB 1120 srem 42687 

550 IF AI>EI THEN N=AIsGOSUB 1270 srem 20306 

560 IF EI>AI THEN N=EIsGOSUB 1240 srem 39516 

570 C=0sIF ASOES THEN 630 srem 21540 

580 FOR 1=1 TO ALsS=A%(I)+E%(I)+C srem 34439 

590 C=0sIF S>=MX THEN C=1:S=S-MX srem 37552 

600 A%(I)=S sNEXT I srem 22454 

610 IF 00 THEN AL=AL+1 sAI»AI+lsA%(AL) =C srem 24705 
620 GOSUB 1400sN=PR-AIsGOSUB 1300sRETURN srem 7100 
630 IF A«(AL)<E%(EL) THEN GOSUB 1480 srem 7522 
640 FOR 1=1 TO ALsD=A%(I)-E%(I)-B srem 51422 
650 B=0sIF D<0 THEN D=D+MXsB=l srem 61197 
660 A%(I)=DsNEXT I srem 48130 
670 C=0sGOTO 610 srem 6306 

680 IF AL=0 OR EL=0 THEN AL=0:AI=0 sAF=0 sRETURN srem 27616 
690 FOR I=AL TO 1 STEP -lsA%(I+EL)=A%(I)sNEXT I srem 33620 
700 FOR 1=1 TO ELsA%(I)=0sNEXT I srem 44658 
710 FOR 1=1 TO ALsM=A%'(I+EL) sC=0 srem 39887 

720 PRINT MID$("{rvs-on)*",l+(I AND 1)) ; "(rvs-off left)"; srem 26701 

730 FOR J=1 TO ELsT=I+J“l srem 10227 

740 S=A%(T)+E%(J)*M+CsC=INT(S/MX)sS=S-MX*C srem 25523 

750 A% <T)=SsNEXT J srem 18565 

760 A%(I+EL)=CsNEXT I srem 861 

770 AL=AL+ELsAF=AF+EFsAI=AI+EIsAS=AS*ES srem 61168 
780 GOSUB 1400sN=PR-AIsGOSUB 1300 srem 45159 
790 RETURN srem 29049 

800 IF EL=0 THEN PRINT "DIVISION a BY a ZERO a NOT a ALLOWED 1"sRETURN srem 30382 
810 IF AL=0 THEN RETURN srem 1057 

820 IF EL=1 AND EI=1 AND E%(1)=1 THEN 1100 srem 17457 

830 IF EL=1 THEN N=EF+1sGOSUB 1180 srem 37108 

840 N=PL+EFsIF PL>PR THEN N=PR+EL-AI srem 47403 

850 N=N+1sGOSUB 1120 srem 10655 

860 M=AL-ELsIF M<0 THEN STOP srem 17498 

870 EE=EL+1sAA=AL+1 srem 55338 
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880 E%(EE-0)=0 srem 52437 

890 D=INT(MX/(E%(EE-1)+1)):IF D=1 THEN A%(AA-0)=0:GOTO 940 srem 54950 

900 C=0:FOR 1=1 TO AL:S=A%(I)*D+CsC=INT(S/MX) srem 47257 

910 A%(I)=S-MX*CsNEXTsA%(AA)=C srem 47636 

920 C=OsFOR 1=1 TO ELsS=E%(I)*D+CsC=INT(S/MX) srem 14798 

930 E%(I)=S-MX*CsNEXTsE%(EE)=C srem 14288 

940 FOR J=0 TO MsAJ=AA-J srem 26862 

950 PRINT MID$("{rvs-on rvs-off)",(J AND 1)+1,1)y"/{left>"; srem 8932 
960 T=A%(AJ)*MX+A%(AJ-1) srem 51678 

970 QT=MX-1sIF A%(AJ)<>E%(EE-1) THEN QT=INT(T/E%(EE-1)) srem 55646 
980 IF E%(EE-2)*QT>((T-QT*E%(EE-1))*MX+A%(AJ-2)) THEN QT=QT-ls 
GOTO 980 srem 62 

990 OOsFOR I=EL TO 0 STEP -1 srem 59691 
1000 S=A%(AJ-I)-QT*E%(EE-I)+C srem 8112 
1010 C=INT(S/MX)sS=S-C*MX srem 32291 
1020 A%(AJ-I)=S sNEXT I srem 10243 
1030 A%(AJ)=QTsIF C=0 THEN 1070 srem 16475 
1040 C=0sA%(AJ)=QT-1 srem 53141 

1050 FOR I=EL TO 1 STEP -1sS=A%(AJ-I)+E%(EE-I)+C srem 52086 

1060 C=INT(S/MX)sA%(AJ-I)=S-MX*CsNEXT I srem 37225 

1070 NEXT J srem 59175 

1080 AL=AL+1sAI=AI+1 srem 22690 

1090 AI=AI-EIsAF=AF+EIsAS=AS*ES srem 877 

1100 GOSUB 1400 sN=PL sZ=PR-AIsIF N>Z THEN N=Z srem 64904 

1110 GOSUB 1300sRETURN srem 33113 

1120 IF AF>=N THEN RETURN srem 5860 

1130 DL=N-AFsIF AL>0 THEN FOR Z=AL TO 1 STEP -1sA%(Z+DL)=A%(Z)s 
NEXT Z srem 17987 

1140 FOR Z=1 TO DLsA%(Z)=0sNEXT Z srem 48812 

1150 AL=AL+DLsAF=AF+DL srem 7691 

1160 IF AL=0 THEN AF=EFsAI=-AF srem 51537 

1170 RETURN srem 42869 

1180 IF EF>=N THEN RETURN srem 50136 

1190 DL=N-EFsIF EL>0 THEN FOR Z=EL TO 1 STEP -1sE%(Z+DL)=E%(Z)s 
NEXT Z srem 4552 

1200 FOR Z=1 TO DLsE%(Z)=0sNEXT Z srem 24038 

1210 EL=EL+DLsEF=EF+DL srem 39304 

1220 IF EL=0 THEN EF=AFsEI=-EF srem 2742 

1230 RETURN srem 15372 

1240 IF AI>=N THEN RETURN srem 26509 

1250 DL=N-AIsFOR Z=AL+1 TO AL+DLsA%(Z)=0sNEXT Z srem 59598 
1260 AL=AL+DLsAI=AI+DLsRETURN srem 64277 
1270 IF EI>=N THEN RETURN srem 3058 

1280 DL=N-EIsFOR Z=EL+1 TO EL+DLsE%(Z)=0sNEXT Z srem 38015 

1290 EL=EL+DLsEI=EI+DLsRETURN srem 58469 

1300 IF AF<=N THEN RETURN srem 32644 

1310 PRINT "{rvs-onJROUNDING!" srem 42603 

1320 IF -AI>N THEN AF=-AIsAL=0sGOTO 1400 srem 54277 

1330 C=0sDL=AF-NsIF A%(DL)>=MX/2 THEN C=1 srem 3 0210 

1340 IF DL>=AL THEN 1380 srem 28069 

1350 FOR Z=DL+1 TO AL srem 58389 

1360 S=A%(Z)+CsC=0sIF S>=MX THEN C=lsS=S-MX srem 36663 
1370 A%(Z-DL)=SsNEXT Z srem 4728 

1380 IF 00 THEN AL=AL+1 sAI=AI+l sA% (AL-DL) =C srem 39007 
1390 AL=AL-DLsAF=AF-DL srem 55114 
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1400 IF AL>0 AND A%<AL)=0 THEN AI=AI-1sAL=AL-1:GOTO 1400 srem 59604 
1410 DL=0 srem 8656 

1420 DL=DL+1:IF A%(DL)=0 AND DL<=AL THEN 1420 :rem 20286 
1430 DL=DL-1:IF DL<AL AND DL>0 THEN FOR Z=DL+1 TO AL:A%(Z-DL)=A%(Z)s 
NEXT Z :rem 33720 

1440 AF=AF-DL:AL=AL-DL:RETURN srem 13222 

1450 GOSUB 1480sGOSUB 1300:GOSUB 1480 srem 39349 

1460 RETURN srem 58065 

1470 GOSUB 1480sGOSUB 1400sGOSUB 1480sRETURN srem 42602 
1480 T=ALsIF T<EL THEN T=EL srem 28554 

1490 FOR Z=1 TO TsT=A%(Z)sA%(Z)=E%(Z)sE%(Z)=TsNEXT Z srem 35837 
1500 T=ALsAL=EL sEL=Ts$T=AI$AI=EI$EI=TsT=AFsAF=EFsEF=TsT=AS sAS=ES s 
ES=T srem 7365 
1510 RETURN srem 39014 

1520 IF T>LEN(IN$) THEN E=-lsRETURN srem 28417 
1530 Z$=MID$(IN$,T,1)sT=T+l srem 56320 
1540 IF Z$<"0" OR Z$>"9" THEN 1520 srem 36173 
1550 E$=E$+Z$ sIF LEN(E$)<3 THEN 1520 srem 61812 
1560 E=VAL(E$)sRETURN srem 16309 
1570 T=0sDP$="."sFOR 1=1 TO LEN(INS) srem 53750 
1580 Z$=MID$(INS,I,1)sIF Z$>="0" AND Z$<="9" THEN T=T+ls 
GOTO 1610 srem 46790 

1590 IF Z$=DP$ THEN DP=TsDPS=""sT=0sGOTO 1610 srem 27787 

1600 IF Z$<>"f" THEN PRINT "NO*";Z$;"' S,*PLEASE"sDP=-lsRETURN srem 61614 

1610 NEXT IsIF DP$<>"" THEN DP=T srem 7637 

1620 RETURN srem 7423 

1630 PRINT "{down}#? 11 ; sEL=0 srem 44093 

1640 NN=1sGOSUB 60000:NN=0:IF IN$="" THEN 1640 srem 18806 

1650 IF IN$="Q" THEN 60600 srem 8148 

1655 IF IN$="?" THEN GOSUB 390sGOTO 1630 srem 50838 

1660 PRINTsES=lsIF LEFT$ (IN$,1) ="-" THEN ES=-1 sINS=MID$ (INS,2) srem 62524 

1670 GOSUB 1570sIF DP<0 THEN 1630 srem 44541 

1680 N=PR+lsEL=NsEI=INT((DP+2)/3)sEF=EL-EI srem 7407 

1690 T=1sE$=MID$("00",DP-EI*3+3) srem 53557 

1700 GOSUB 1520sIF E<0 THEN 1730 srem 34166 

1710 E$=""sIF E=0 AND N=EL THEN EI=EI-1sEF=EF+lsGOTO 1700 srem 26272 
1720 E%(N)=EsN=N-lsIF N>0 THEN 1700 srem 5781 
1730 E$=LEFT$(E$+"000",3)sE%(N)=VAL(E$)sN=N-l srem 30042 
1740 DL=NsIF DL<=0 THEN 1760 srem 23057 

1750 EL=EL-DLsEF=EF-DLsFOR 1=1 TO EL$E%(I)=E%(I+DL)sNEXT I srem 64340 
1760 GOSUB 1480sGOSUB 1400sN=PR-AIsIF AL>0 THEN GOSUB 1300 srem 60163 
1770 GOSUB 1480 srem 23411 
1780 RETURN srem 43285 

1790 IF AL=0 THEN PRINT ",,^0" sRETURN srem 58989 

1800 T=ALsPRINT MID$2+AS,l); srem 19003 

1810 IF AK1 THEN PRINT "**0" ; sGOTO 1870 srem 21460 

1820 ZZ=-AFsIF ZZ<0 THEN ZZ=0 srem 44100 

1830 PRINT RIGHTS(" A "+STR$(A%(T)) ,3); sT=T-l srem 31712 

1840 IF ZZ>=AI-1 THEN 1860 srem 33836 

1850 FOR Z=ZZ+1 TO AI-1sN=A%(T)sT=T-lsGOSUB 1940sPRINT ",";N$;s 
NEXT Z srem 33487 

1860 IF ZZ>0 THEN FOR Z=1 TO ZZsPRINT ",000";sNEXT Z srem 60749 
1870 IF AF<1 THEN 1930 srem 21316 

1880 PRINT sZZ=-AIsIF ZZ<0 THEN ZZ=0 srem 7921 

1890 IF ZZ>0 THEN FOR Z=1 TO ZZsPRINT "000^";sNEXT Z srem 10731 
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1900 IF ZZ>=AF-1 THEN 1920 :rem 44680 

1910 FOR Z=ZZ+1 TO AF-1:N=A%(T):T=T-1sGOSUB 1940 SPRINT N$;"*";: 

NEXT Z :rem 27829 

1920 N=A%(T)sGOSUB 1940:GOSUB 1980sPRINT;N$; srem 56512 
1930 PRINT:RETURN :rem 19730 

1940 N$=MID$(STR$(N),2):IF LEN(N$)<3 THEN N$=RIGHT$("00"+N$,3) :rem 42420 
1950 IF N<0 THEN N$=”- ,, +N$ srem 51174 

1960 IF LEN(N$)>3 THEN N$="{L rvs-on)"+MID$(N$,l,LEN(N$)-3)+ M (rvs-off 
J}"+RIGHT$(N$,3) srem 45716 
1970 RETURN srem 32791 

1980 IF N$<>"0" AND RIGHT$(N$,1)="0" THEN N$=LEFT$(N$,LEN(N$)-1) s 
GOTO 1980 srem 44797 
1990 RETURN srem 48644 

248 lines, proof number = 51253 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in HI-CALC 

A% Running current answer 
AF Number of digits to the right of the decimal 
point in the answer (by groups of three digits) 

AI Position of decimal point in answer (by groups of 
three digits) 

AL Length of answer (by groups of three digits) 

AS Sign of answer (positive or negative) 

C Carry flag 

DP Position of decimal point 

DP$ ASCII character code for a decimal point 
E% Current number being entered, in groups of three 
digits 


EF Number of digits to the right of the decimal 

point in current entry, by groups of three digits 
El Position of decimal point of current entry, by 
groups of three digits 

EL Length of current number in entry, by groups of 
three digits 

ES Sign of current number 
MX Maximum number of three-digit groups 
OP Current operation to be performed 
PR Current precision, in groups of three digits 


How HI-CALC Works 


100-160 Initialize variables and first answer 

170-270 Main loop: get operation and go to 
corresponding choice 

280-300 Clear answer for a new calculation 

310-380 Set carried decimal places 

390-475 Display instructions, precision, and 

number of decimal places for carrying 
480-570 Set up two numbers for addition or 
subtraction 

580-620 Add two numbers 


630-670 

680-790 

800-1110 

1120-1290 

1300-1470 

1520-1560 

1570-1620 

1630-1780 

1790-1990 


Subtract two numbers 
Multiply two numbers 
Divide two numbers 
Adjust decimal places 
Round a number 

Break a number into groups of three digits 
Find decimal point 

Get a number from keyboard and convert it 
to HI-CALC format (groups of three) 

Display answer 




FLIGHT 


Ken Morley 
Mike Howard 

F LIGHT is a delightful animated cartoon 
that uses the color, sound, and sprites of 
your C-64 to show a mission to the moon 
by two Canadian astronauts. The graphics are 



great in this fun demonstration. Five, four, 
three, two, one—we have ignition, we have 
lift-off 

Note: FLIGHT uses sound. 


1 PG$="FLIGHT" sAU$="KEN a MORLEY" sBG$="RETURN " sA2$ = "AND.*MIKE~H0WARD" 
srem 35615 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905? SANTA BARBARA? CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 :rem 51784 
100 POKE VIC+32,0:POKE VIC+33?0 :rem 52257 
110 GOSUB 3710 :rem 34877 
120 DIM S$(7) srem 60800 

130 S$(1)="{yel ll°space).{6°space 4°right 12°space)._Iwht}” srem 7440 

140 S$(0)="{yel)^.{15°space 4°right). {14°space). Iwht) " srem 58640 
150 S$(2) *"{yel 11°space).{6°space 4°right 5°space).{7°space).^Iwht)" 
srem' 40086 

160 S$(3)="{yel 17°space).14°right 16°space wht)" srem 63333 
170 S5(4)="(yel 18°space 4°right 8°space).(7°space wht)" srem 40431 
180 S$(5)= n {yel 5°space).{9°space).^{4°right 16°space wht)" srem 15278 
190 S$(6)="(yel 8°space).{9°space 4°right 7°space).{8°space wht)" 
srem 3870 

200 S$(7)="{yel).{17°space 4°right 16°space wht)" srem 58945 
210 GOTO 1620 srem 33963 

220 GOSUB 3710sPRINTsFOR 1*1 TO 25sS=INT(RND(1)*1000)sPOKE CRT+S,46s 
POKE CM+S?7 srem 1224 
230 NEXT srem 40298 

240 T=254sPOKE VIC,182sPOKE VIC+1?155sPOKE VIC+27?1sGOSUB 2920s 
N*48 srem 23325 

250 S2=CRT+462sS3=CRT+499 srem 33030 
260 C2=CM+462sC3*CM+499 srem 31884 
270 FOR J=1 TO 40 srem 40699 

280 PRINT "(home 10°down rvs-off)" TAB(20) "(yel NM 2°left down rvs-on 

red)**{rvs-off 2°left down rvs-on yel GM 2°left down rvs-off blu CV)"; 
srem 50723 

290 IF J<23 THEN 320 srem 2045 

300 POKE S3?78sPOKE S3+3?77 srem 32961 

310 POKE C3?7sPOKE C3+3?7 srem 11194 

320 Z= (J+l) /3s IF ZOINT(Z) THEN 350 srem 27731 

330 POKE VIC+21?1sDE*J*2.75 srem 35942 

340 GOSUB 2750sPOKE VIC+21?0 srem 39106 
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350 GOSUB 2620:FOR 1*1 TO (.35*J)t2+125:NEXT I:IF J=40 THEN 490 :rem 29105 
360 IF J<>22 THEN 410 :rem 63386 

370 POKE S2-3,77:POKE C2-3,7:POKE S2,78:POKE C2,7 :rem 9997 
380 POKE S2-3,100:POKE S2,100 :rem 65270 
390 POKE S2-3,32:POKE S2,32 :rem 65503 

400 POKE S3,78:POKE C3,7:POKE S3+3,77:POKE C3+3,7 :rem 35840 
410 IF J*38 THEN POKE S3,82:POKE C3,14:POKE S3+3,64:POKE C3+3,14: 

GOTO 430 :rem 63890 

420 IF J>21 THEN POKE S3 f 32:POKE S3+3,32 :rem 4229 

430 PRINT "{2°left} AA {2°left up} AA (2°left up> AA {2°left up} AA {2°left}"; 

:rem 31627 

440 PRINT "{home 25°down 3°up}" :rem 58107 
450 IF J>24 THEN 480 :rem 64414 

460 S=INT(RND(1)*40):POKE CRT+960+S,46:POKE CM+960+S,7 :rem 30536 
470 IF J=21 THEN POKE CRT+970,81:POKE CM+970,6 :rem 53318 
480 IF J>24 THEN READ J$:PRINT J$ :rem 1916 
490 NEXT J:FOR 1*1 TO 2000:NEXT I :rem 26082 
500 PRINT "{home 9°down}":PRINT TAB(21) "{yelKUeft up @}"; S 
YY=4 :rem 34150 

510 GOSUB 1170:PRINT "{left N>";:GOSUB 1170:PRINT "{left G>"; :rem 6782 
520 GOSUB 1170:PRINT "{left) A {2°left M)";:GOSUB 1170:PRINT "{left @}"; 

:rem 26404 

530 POKE VIC+1,140:POKE VIC+5,140:POKE VIC,187:POKE VIC+4,187: 

POKE VIC+27,5 :rem 62382 
540 POKE VIC+39,1:POKE VIC+41,1 :rem 46412 
550 POKE 2040,250:POKE 2042,250:POKE VIC+21,5 :rem 35117 
560 L«12:S»0:BO*4:GOSUB 900:GOSUB 1170 :rem 34338 
570 M=1:L»3:G=4:GOSUB 970:POKE 2040,253:X2=X:Y2=Y :rem 23482 
580 L=14:S»1:BO»0:GOSUB 900:GOSUB 1170 :rem 27775 

590 FOR 1*1 TO 400:NEXT I:POKE 2042,253:FOR 1*1 TO 400:NEXT I :rem 30038 

600 M=-l:L»4:G»ll:GOSUB 970 :rem 6281 

610 POKE 2042,252 :rem 45429 

620 PRINT "{home 14°down 8°right}"; :rem 63268 

630 GOSUB 1170:FOR 1*1 TO 1000:NEXT :rem 49494 

640 FOR 1*1 TO 500:NEXT I:YY=8 :rem 57065 

650 PRINT "{2°left wht G}";:GOSUB 1170:PRINT "{left up G>";:GOSUB 1170: 
PRINT "{left up rvs-on red G wht X red M rvs-off 2°down 3°left>"; 

:rem 13996 

660 GOSUB 850:GOSUB 2930:GOSUB 3130 :rem 45726 

670 POKE 2042,250 :rem 4110 

680 FOR 1*1 TO 400:NEXT I :rem 52285 

690 M*1:L=5:G=7:GOSUB 970 :rem 29530 

700 X3*X:Y3=Y :rem 28991 

710 POKE 2040,250:PRINT "{home 29°right 14°down}"; :rem 14183 

720 PRINT "{blu B left down T 2°up left)";:GOSUB 1170:PRINT "{B left up}"; 

:GOSUB 1170 :rem 51397 

730 PRINT "{- left up}";:GOSUB 1170:PRINT "{down right rvs-on yel} 
18{rvs-off 2"down 3°left}";:GOSUB 850 :rem 58934 
740 X=X2:Y=Y2:S*0:M*-1:L*3:G*5:GOSUB 970 :rem 29881 
750 GOSUB 850:POKE 2040,250:GOSUB 850 :rem 57109 
760 PRINT "{7°left}"; :rem 48660 

770 YY*5:FOR J=1 TO 7:PRINT "{left} A .";:GOSUB 1170 :rem 45615 
780 NEXT J:PRINT "{left} A {right}/{up}CLUNK!{7°left down}";:YY*20: 

GOSUB 1170:FOR 1*1 TO 200:NEXT :rem 64846 
790 PRINT " A {up 8°space}"; :rem 10919 
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800 FOR 1=1 TO 1000:NEXT I :rem 28038 

810 GOTO 1190 :rem 23019 

820 POKE VIC+1,134-J*8 srem 32088 

830 GOSUB 2660:GOSUB 2910:POKE SID+11,129:FOR 1=1 TO Q/4:POKE SID+7,1: 

NEXT :cein 27166 
840 Q=Q-20sRETURN :rem 20169 
850 FOR 1=1 TO 600:NEXT:RETURN srem 63959 
860 FOR 1=1 TO DE:NEXT 1:RETURN :rem 30262 
870 IF S=1 THEN 890 :rem 56637 

880 T=D-T:POKE 2040,T:POKE VIC,X:POKE VIC+1,YsGOSUB 860 jRETURN :rem 47654 
890 T=D-TsPOKE 2042,T:POKE VIC+4,X:POKE VIC+5, Y:GOSUB 860: 

RETURN srem 22942 

900 DE=100:D=500:T=250:X=187:FOR Y=140 TO 124 STEP -2 srem 1940 

905 GOSUB 870:NEXT YsPOKE VIC+27,BO srem 13443 

910 Y=Y+2sD=D+lsFOR Z=1 TO 6sX=X+2sGOSUB 870sNEXT Z srem 35817 

920 X=X+1 :D=D-1 :.T=250 sFOR Z=1 TO 5:Y=Y+2sGOSUB 870sNEXT Z srem 63315 

930 D=D+1:X=X+2:Y=Y-1sGOSUB 870sD=D+1sX=X+2sGOSUB 870:X=X+1: 

GOSUB 870 srem 50771 
940 X=X+2:Y=Y+1sGOSUB 870 srem 26496 

950 T=250:D=T*2:FOR Z=1 TO LsDE=DE-7sY=Y+2sGOSUB 870:X=X+.2s 
NEXT Z srem 45619 
960 RETURN srem 56002 
970 FOR Z=1 TO G srem 7737 

980 DE=48:T=251-M:D=T*2:FOR Z2=l TO L:X=X+M:Y=Y-2:GOSUB 870s 
NEXT Z2 srem 22993 

990 DE=20:T=252-M:D=T*2:FOR Z2=l TO L*2sX=X+MsY=Y+lsGOSUB 870s 
NEXT Z2 srem 27933 
1000 Y=Y-FsNEXT Z srem 40354 
1010 RETURN srem 52435 
1020 FOR BL=6 TO 10 STEP 2 srem 15989 
1030 T=251sD=T*2sDE=25 srem 41908 

1040 FOR Z=1 TO BLiGOSUB 870sY=Y-2sNEXT Z srem 48672 
1050 T=250:D=T*2:DE=10 srem 41569 

1060 FOR Z=1 TO BL*2sGOSUB 870:Y=Y+1sNEXT Z srem 42208 
1070 NEXT BL srem 41605 

1080 T=251:D=T*2:DE=17:FOR Z=1 TO 12:GOSUB 870:Y=Y-2:NEXT Z srem 365 
1090 GOSUB 1170 srem 49655 

1100 FOR 1=1 TO 50sNEXT I:T=252:D=T*2 srem 10529 

1110 GOSUB 870 srem 25549 

1120 FOR 1=1 TO lOOsNEXT I srem 27702 

1130 DE=28:FOR Z=1 TO 7:Y=Y-2sX=X-2sGOSUB 870:NEXT Z srem 44442 
1140 POKE VIC+27,5 srem 32661 

1150 FOR Z=1 TO 21sY=Y+lsGOSUB 870:NEXT Z srem 30085 
1160 POKE V1C+21 r KsPOKE VIC+27,0sRETURN srem 31874 
1170 GOSUB 2950 srem 8270 

1180 POKE SID+4,33:FOR 1=1 TO 65:NEXT IsPOKE SID+4,32sRETURN srem 37101 
1190 Y=Y-2:K=4sGOSUB 1020 srem 53552 
1200 X=X3:Y=Y3 srem 34248 

1210 S=l:M=l:L=2:G=3sF=2sGOSUB 970 srem 63230 

1220 K=0sGOSUB 1020 srem 38566 

1230 PRINT "{17°left 3°up}"; srem 31850 

1240 POKE VIC+21,0 srem 45576 

1250 FOR 1=1 TO 1500sNEXTsYY=5 srem 20769 

1260 PRINT "{2°left up MJ";sGOSUB 1170:PRINT "{leftKtG}"; s 
GOSUB 1170 srem 23532 
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1270 PRINT "{left N)";:GOSUB 1170:PRINT "(left @} n ; :rem 53950 
1280 GOSUB 1170:PRINT "(left}«(left down M}";:GOSUB 1170 :rem 29050 
1290 FOR 1=1 TO 3000:NEXT:F=500:FOR J=1 TO 3 :rem 262 
1300 POKE S2-3,77:POKE C2-3,14:POKE S2,78:POKE C2,14 :rem 16269 
1310 POKE S2-3,32:POKE S2,32:FOR 1=1 TO F:NEXT :rem 33510 
1320 F=F-200:NEXT J:PRINT n {2°left down blu CV 2°left up rvs-on red GM 
2°left>^{up rvs-off 2°left vel NM} n ::Q=400 :rem 1612 
1330 POKE VIC,181:POKE VIC+39,8:POKE VIC+27,255:POKE SID+8,5: 

T=254 :rem 62111 
1340 POKE VIC+1,144 :rein 36219 

1350 Z$="{2°left 2°down} AA .{2°left up blu CV 2°left up rvs-on red GM 2°left 
up rvs-off yel NM)" :rem 30350 
1360 J=0:GOSUB 820 :rem 62030 
1370 PRINT Z$; :rem 35735 
1380 POKE VIC+21,1:GOSUB 820 :rem 11498 
1390 FOR J=1 TO 8 :rem 30505 
1400 PRINT Z$; :rem 20913 
1410 GOSUB 820 :rem 13071 
1420 IF JOl THEN 1440 :rem 54843 

1430 POKE CRT+420,100:POKE CM+420,14:POKE CRT+421,70: 

POKE CM+421,14 :rem 7938 
1440 NEXT :rem 45160 

1450 PRINT "{2°left 3°down}^{2°lef t up}^{2°left up blu CV 2°left up 
rvs-on red GM rvs-off}"; :rem 18472 
1460 GOSUB 820 :rem 14463 

1470 PRINT "(2°left 2°down}«^{2°left up}^{2°left up blu CV}"; :rem 12394 
1480 J=10:GOSUB 820 :rem 49145 

1490 PRINT "{2°left down}^(2°lef t up}**"; :rem 24575 

1500 J=ll:GOSUB 820 :rem 1628 

1510 PRINT "{2°left}**" :rem 65160 

1520 J=12:GOSUB 820:J=13:GOSUB 820 :rem 36127 

1530 TM=TI+60 :rem 59394 

1540 IF TI<TM THEN 1540 :rem 2516 

1550 GOSUB 2930 :rem 26247 

1560 GOSUB 3710:PRINT "{ll°down}";TAB(15);"{rvs-on 9°space}" :rem 14864 
1570 PRINT TAB(15);"{rvs-on}*THE*END*":PRINT TAB(15);"(rvs-on 9°space>" 
:rem 22576 

1580 TM=TI+150 :rem 10905 

1590 IF TI<TM THEN 1590 :rem 23328 

1600 GOTO 60600 :rem 40431 

1620 GOSUB 3400 :rem 54407 

1630 GOSUB 2870 :rem 26516 

1640 Z=1000 :rem 8727 

1650 GOSUB 3710:PRINT "{10°down}" :rem 42783 

1660 A$="{4°space 4°left up blu £CV blu * 4°left up rvs-on blu}*{yel GM 
blu}*{4°left up £ yel OP blu * 3°left up red)..(2°left up 2°T 2°left 
up 2°E 2°left up yel £* rvs-off}" :rem 63913 
1670 FOR 1=1 TO 7:READ A(I)jNEXT:DATA 56,51,46,39,28,15,4(4°space} 

:rem 51235 

1680 B$="(home 6°down}" :rem 33079 

1690 PRINT TAB(18);"(5°space cyn OM}" :rem 25365 

1700 PRINT TAB(18);"(4°space pur N cyn OVG)" :rem 56237 

1710 PRINT TAB(18) ; "_{gur N cynK(OVG}" :rem 2555 

1720 PRINT TAB(18);"^^{gur O 2°T cyn OVG}" :rem 34621 

1730 PRINT TAB(18);"*{yel rvs-on £* rvs-off}^^( cyn OVG}" :rem 65465 
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1740 PRINT TAB(18) j " A {rvs-on red) aa{ rvs-off } A<> { cyn OVGH)" srem 34916 
1750 PRINT TABC18 );"a{ rvs-on red 2°T rvs-off OVGH)" :rem 54544 

1760 PRINT TAB(18); " A {rvs-on red), .{rvs-off )^{ cyn KfOVGH)" :rem 10594 
1770 PRINT TAB(18);"{rvs-on blu £ yel OP blu * rvs-of f) a.( cyn OVGH)" 

:rem 54668 

1780 PRINT TAB(18);"{rvs-on blu )^tyel GM blu ) a( rvs-off).( cyn OVGH)” 

:rem 24945 

1790 PRINT TAB(18) j"(blu fiCVj^^cyn OVGH wht)” :rem 13959 
1800 FOR 1=1 TO 40:PRINT "{rvs-on £)sNEXTsFOR 1=1 TO 79:PRINT "{+)";s 
NEXT :rem 29820 

1810 POKE CRT+999,230;POKE CM+999,1 srem 38449 

1820 FOR 1=1 TO 20 srem 55646 

1830 R=INT(RND(1) *1000) srem 28075 

1840 IF PEEK(CRT+R) 032 THEN 1830 srem 25644 

1850 POKE CRT+R,46sPOKE CM+R,7 srem 21882 

1860 NEXT srem 4034 

1870 PRINT "{ blu home 22°down rvs-on)AAA{3°left down) aaa{ 3°left down) 
aaa(2°up wht)" srem 59298 
1880 GOSUB 291OsFOR Z=9 TO 0 STEP -1 srem 19716 
1890 POKE SID+4,33SPRINT "{ blu rvs-on up)";ZsTM=TI+60 srem 59540 
1900 IF TICTM THEN 1900 srem 61244 
1910 GOSUB 2930sNEXT Z srem 43056 

1920 PRINT "{wht home 14 0 down)";TAB(20); srem 25290 

1930 GOSUB 3290 srem 13247 

1940 PRINT "{ pur rvs-off N)"; srem 29821 

1950 GOSUB 2570 srem 62261 

1960 PRINT "(left M)"; srem 57201 

1970 GOSUB 2570 srem 28842 

1980 PRINT "{left)A{up M left down M)"; srem 55964 
1990 GOSUB 2570 srem 58410 

2000 PRINT "(left)A(left up^tup Y left down - left down G)“; srem 7173 
2010 GOSUB 2570 srem 27483 

2020 PRINT "{left 2°up M left down M left down M)"; srem 34230 
2030 POKE VIC+23,1 srem 62644 
2040 FOR J=1 TO 15 srem 39074 
2050 GOSUB 2590 srem 33914 

2060 PRINT ”{7°down 5°left 4°space 4°left up blu £ CV* 4°left up rvs-on) 
A(yel GM blu )A{4°left up £ yel OP blu * 3°left)"; srem 49968 
2070 PRINT "{up red)..{2°left up 2°T 2°left up)AA{2°left up yel £* 2°right 
up rvs-off)"; srem 31450 
2080 POKE VIC+l,222-(J*8) srem 9964 
2090 NEXT srem 36266 
2100 FOR K=7 TO 1 STEP -1 srem 878 
2110 GOSUB 2590 srem 959 

2120 PRINT LEFT$(B$,K) "{18°right)" LEFT$(A$,A(8-K)) srem 17097 
2130 POKE VIC+1,222-(J*8)sJ=J+l srem 29745 
2140 NEXT K srem 18577 

2150 PRINT "{home 21°down 19°right)"; srem 54160 

2160 FOR Z=1 TO 5 srem 36634 

2170 GOSUB 2590 srem 39889 

2180 POKE VIC+1,222-(J*8)sJ=J+l srem 55881 

2190 NEXT Z srem 15301 

2200 GOSUB 2930sFOR 1=1 TO lOOOsNEXT srem 19141 

2210 SP$=”{home 16°down 18°right)"sGOSUB 3710 srem 22007 

2220 PRINT SP$A$;sPOKE VIC+1,174 srem 40758 
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2230 FOR J=1 TO 20 :rem 45504 

2240 GOSUB 2860:GOSUB 2610 srem 62071 

2250 NEXT :rem 28804 

2260 POKE VIC+21,0:POKE VIC+23,0sPOKE VIC+39,0sPOKE VIC+1,149 srem 19570 
2270 FOR J=1 TO 3 :rem 44532 

2280 FOR K=1 TO RND(1)*1300+1sNEXT K :rem 7211 
2290 POKE CRT+458,78sPOKE CRT+461,77 :cem 10497 
2300 POKE CM+458,6sPOKE CM+461,6 srem 33175 
2310 FOR 1=1 TO 200:NEXT srem 43332 
2320 POKE CRT+458,32sPOKE CRT+461,32 srem 46982 
2330 NEXT JsPRINT SP$;A$; srem 12702 

2340 C$="{rvs-on red) AA {3°left down rvs-off blu ) A {rvs-on red)..{rvs-off 
blu) A {rvs-on 4°left down £ yel OP blu * 4°left down)*{yel GM blu ) 
*{4°left down rvs-off £ CV* >" srem 60118 
2350 FOR 1=1 TO 4sREAD C(I)sNEXTsDATA 41,30,18,4 srem 5390 
2360 D$="{3°left 3°upJ" srem 2250 

2370 PRINT "{2°left down rvs-on red) AA {2°left down yel GM 2°left down)" C$; 
srem 22687 

2380 GOSUB 2670 srem 4717 

2390 PRINT "{3°left 4°up rvs-off blu CV 2®left down)" C$; srem 47466 
2400 GOSUB 2670 srem 37362 
2410 POKE VIC+39,8 srem 56202 
2420 FOR J=1 TO 7 srem 24715 

2430 PRINT "{3°left 4°up rvs-off) AA {2°left down)" C$? srem 41309 

2440 GOSUB 2670 srem 43219 

2450 NEXT J srem 28138 

2460 PRINT "{3°left 4°up)"; srem 17610 

2470 FOR J=1 TO 4 srem 20348 

2480 PRINT "{rvs-off) AA {2°left down)" LEFT?(C$,C(J))LEFT$(D$,7-J); 
srem 54882 

2490 GOSUB 2670 srem 57534 
2500 NEXT J srem 51699 

2510 PRINT "{rvs-off) AAA {3°up)"? srem 17078 
2520 POKE VIC+21,1 srem 58477 

2530 FOR J=1 TO 30sGOSUB 2860:GOSUB 2610 srem 15152 
2540 NEXTsPOKE VIC+21,0sGOSUB 3710 srem 5334 
2550 GOSUB 2800 srem 39987 
2560 GOTO 220 srem 17120 

2570 Q=Q+1.2sPOKE SID+7,QsT=509-TsPOKE 2040,T srem 54028 
2580 FOR 1=1 TO 50sNEXT I:RETURN srem 33790 
2590 GOSUB 2660sQ=Q+5sPOKE SID+7,Q srem 57150 
2600 FOR 1=1 TO 65:NEXT IsRETURN srem 40677 
2610 GOSUB 2660 srem 23199 

2620 POKE SID+11,129sFOR 1=1 TO 20sNEXT IsPOKE SID+11,0 srem 51734 
2630 FOR 1=1 TO lOsNEXT IsPOKE SID+11,129 srem 33179 
2640 GOSUB 2660sFOR 1=1 TO lOsNEXT IsPOKE SID+11,0 srem 59174 
2650 RETURN srem 61745 

2660 T=509-TsPOKE 2040,TsRETURN srem 63565 

2670 POKE SID,48sPOKE SID+1,4 srem 57076 

2680 POKE SID+4,33sFOR 1=1 TO 20sNEXT I srem 42820 

2690 POKE SID+4,32sFOR 1=1 TO 20sNEXT I srem 29885 

2700 POKE SID,31 sPOKE SID+1,21 srem 37742 

2710 POKE SID+4,33sFOR 1=1 TO 15sNEXT I srem 194 

2720 POKE SID+4,32 srem 51753 

2730 FOR 1=1 TO 105sNEXT IsPOKE SID+4,0 srem 54345 
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2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2865 
287 0 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3135 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 


RETURN :rem 60881 

N=N-3.5:POKE SID+14,N srem 41038 

POKE SID+18,129 :rem 12804 

FOR 1=1 TO DE/2:NEXT I:GOSUB 2660 srem 44720 
FOR 1=1 TO DE/2:NEXT I srem 46023 
POKE S1D+18,128sRETURN srem 41093 

FOR 1=1 TO 1500sNEXTSPRINT "{clr 12°down}"; srem 9571 

PRINT "{11°spaceJTHREE.DAYS.LATER..." srem 9954 

FOR 1=1 TO 2000sNEXT srem 1842 

PRINT "(home 12°down>"; srem 51853 

FOR 1=1 TO 40 SPRINT sNEXT srem 7394 

RETURN srem 4014 

PRINT "{home)";sSl=Sl+lsFOR S=Sl+7 TO SI STEP -1 srem 2634 

PRINT S$(S AND 7) "{2°down)"sNEXTsRETURN srem 2003 

FOR Z=SID TO SID+24 sPOKE Z,0sNEXT srem 17250 

POKE SID+24,15sPOKE SID+5,7sPOKE SID+6,7 srem 56780 

POKE SID+12,31sPOKE SID+13,241sPOKE SID+4,OsPOKE SID+11,0 srem 5049 

POKE SID+19,0sPOKE SID+20,240sRETURN srem 26468 

POKE SID,99sPOKE SID+1,56sPOKE SID+7,OsPOKE SID+8,1 srem 10067 

POKE SID+14,48sPOKE SID+15,11sRETURN srem 32631 

POKE SID+4,32sPOKE SID+11,128sRETURN srem 56242 

POKE SID+5,85sPOKE SID+6,85sRETURN srem 29112 

POKE SID+5,5sPOKE SID+6,5 srem 31944 

POKE SID,251sPOKE SID+1,YY srem 54683 

RETURN srem 10621 

DATA ”{2°down 2°@ RF 2°* CDC*F*DTEDC*FR@F*C 2°D C*CDC*F*C* 2°C * up}" 
srem 55168 

DATA "{down}" srem 58132 

DATA ”{2°down *CDC*FRF*C*FRFR@ 9°space *CETDETE*R up 3°left @R*CD 
up}" srem 57354 

DATA "{2°down 15°space @R 18°space TEDC up}" srem 62654 

DATA "{2°down 10°space FRFCE up}" srem 9568 

DATA "{2°down up}" srem 51352 

DATA "{2°down up}" srem 27381 

DATA "{2°down up}" srem 60663 

DATA "{2°down 19°space TD*RF* 2°C DEDC*FR@ up}" srem 18286 
DATA "" srem 42848 
DATA "" srem 28421 

DATA "{down @RF*CDETD*R@RFCETEDC*FR@}" srem 50329 
DATA "{down 12°space EDC*FR 2°@}" srem 49163 
DATA "" srem 62146 
DATA "" srem 769 

GOSUB 2940sFOR 1=1 TO 37 sREAD NV srem 2889 

IF NV=0 THEN POKE SID,0sPOKE SID+1,OsGOTO 3150 srem 48470 

POKE SID,NL(NV)sPOKE SID+1,NH(NV) srem 29676 

POKE SID+4,33 srem 32259 

READ DsD=-DsFOR J=1 TO D*19.5sNEXT srem 60859 
POKE SID+4,32 srem 27886 
NEXT srem 41384 
RETURN srem 4831 

DATA 6,-20,4,-12,0,0,4,-5 srem 65337 
DATA 8,- 24 , 7 ,-8,6,-8,5,-8,4,-8 srem 27250 
DATA 3,-8,7,-28,6,-20,5,-12 srem 2194 
DATA 0 , 0 ,5,-5,4,-24,3,-8,2,-8 srem 18109 
DATA 0,0,2,-8,3,-8,0,0,3,-8 srem 9182 
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3250 DATA 4,-24,0,-4,4,-20,l f -12,0,0 srem 33453 

3260 DATA 1,-5,3,-8,5,-8,6,-8,7,-8 srem 9604 

3270 DATA 4,-24,9,-24,8,-40,0,0 :rem 14240 

3280 DATA -1 srem 44067 

3290 POKE SID+11,129 srem 10916 

3300 POKE VIC,174sPOKE VIC+1,222 srem 48801 

3310 POKE VIC+39,8sPOKE 2040,254 srem 51713 

3320 POKE VIC+21,1 srem 2863 

3330 T=254sS=lsPOR Z=1 TO 42 srem 50079 

3340 GOSUB 2660sPOKE VIC+22,(PEEK(VIC+22) AND 248)+S srem 52749 

3350 POKE SID+7,Z*1.2 srem 21526 

3360 S=l-S srem 50146 

3370 NEXT Z srem 47834 

3380 Q=Z*1.2 srem 48270 

3390 RETURN srem 55827 

3400 PRINT "{clr whtJSETTING^UP...■ srem 35539 
3410 READ Z$sIP Z$<>"-1" THEN 3410 srem 5737 
3420 B=250*64 srem 4903 

3430 READ AsIF A=-l THEN 3650 srem 58094 
3440 POKE B,AsB=B+lsGOTO 3430 srem 13001 

3450 DATA 7,128,0,70,128,0,79,0,0,126,0,0,126,0,0,127,128 srem 26562 
3460 DATA 0,126,0,0,30,0,0,15,0,0,29,128,0,24,192,0,48 srem 7254 
3470 DATA 96,0,224,192,0,128,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0 srem 52881 

3480 DATA 35,192,0,35,64,0,39,128,0,63,32,0,63,64,0,63,128 srem 29439 
3490 DATA 0,63,0,0,7,128,0,12,192,0,12,96,0,24,192,0,48 srem 19516 
3500 DATA 96,0,96,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
srem 49841 

3510 DATA 60,0,0,44,64,0,30,64,0,15,192,0,15,192,0,63,192 srem 29824 
3520 DATA 0,15,192,0,15,0,0,30,0,0,55,0,0,99,0,0,193 srem 30010 
3530 DATA 128,0,96,224,0,128,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0 srem 23491 

3540 DATA 120,128,0,88,128,0,60,128,0,159,128,0,95,128,0,63 srem 25580 
3550 DATA 128,0,31,128,0,60,0,0,102,0,0,198,0,0,99,0,0 srem 23554 
3560 DATA 193,128,0,0,192,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0 srem 21126 

3570 DATA 1,252,0,1,252,0,1,236,0,1,126,0,3,248,0,2,120 srem 23151 
3580 DATA 0,0,252,0,0,124,0,0,114,0,0,126,0,0,120,0,0,48 srem 21933 
3590 DATA 0,0,48,0,0,56,0,0,80,0,0,56,0,0,64,0,0,0 srem 13187 
3600 DATA 0,0,0,0,0,0,0,0,0,0,0,1,252,0,3,254,0,5,253 srem 42109 
3610 DATA 0,5,254,0,7,248,0,6,249,0,2,251,0,6,122,0,3 srem 50893 
3620 DATA 242,0,0,248,0,0,248,0,0,60,0,0,120,0,0,56,0,0 srem 32594 
3630 DATA 56,0,0,104,0,0,96,0,0,8,0,0,32,0,0,0,0,0,0,0,0,0 srem 65116 
3640 DATA -1 srem 50129 
3650 DIM NL(10),NH(10) srem 45874 

3660 FOR Z=10 TO 1 STEP -IsREAD NL(Z),NH(Z)sNEXT Z srem 44621 

3670 RESTORESRETURN srem 42475 

3680 DATA 209,18,31,21,96,22,30,25 srem 31239 

3690 DATA 49,28,165,31,135,33,162,37 srem 32307 

3700 DATA 62,42,193,44 srem 15508 

3710 PRINT "{clr}";sRETURN srem 40641 

3720 RETURN srem 7694 


421 lines, proof number - 12840 
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Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in FLIGHT 

A Value for POKEing sprites into memory 
A$ Character codes to draw rocket 

B Base address for sprites 

B$ String of cursor control codes for drawing rocket 
BO Used to mask out certain sprites 
C$ String of character codes to draw part of rocket 
C() LEFT? values for printing portions of rocket 
C2 Color memory locations of rocket fins 
C3 Color memory locations of rocket fins 
D Temporary variable for sprite-block pointers 

D$ Temporary string for printing 

DE Time delay loop variable 

G “Gravity" for height of leaps by astronauts 
L Length of astronaut movement sequence 

M Direction of astronaut movement 


N Pitch-value used in sound 

NH() High note values (pitch) for song 
NL() Low note values for song 
NV Current note value for song 
Q Pitch-value used in rocket-noise 

R Random screen-location for stars 

S$() Array holds string for scrolling stars 

51 Current location in “stars" array (for above) 

52 Screen location of rocket fins 

53 Screen location of rocket fins 

SP$ Cursor control for screen printing 

T Sprite data pointer 

X X-coordinate of astronaut sprite 

Y Y-coordinate of astronaut sprite 

YY Pitch of “beep" sound for moving objects 


How FLIGHT Works 


100-210 Initialize array for stars 

220-490 Landing sequence of lunar module onto 
moon 

500-590 Astronauts emerge from rocket 

600-690 Second astronaut sets up Canadian flag and 
national anthem plays 

700-810 First astronaut sets up 18th-hole flag and 
putts golf ball 

820-1180 Sprite movement, sound, and delay 
routines 

1190-1280 Astronauts return to spacecraft from 
moon's surface and door shuts 

1290-1540 Rocket takes off from moon's surface 

1550-1600 Ending message 

1620-1860 Set up launch site, rocket, and background 
stars 


1870-1910 

1920-2020 

2030-2200 

2210-2250 

2260-2510 

2520-2560 

2570-2790 

2800-2850 

2860-2865 

2870-2970 

2980-3120 

3130-3190 

3200-3280 

3290-3390 

3400-3640 

3650-3720 


Countdown 
Boom falls awav 
Rocket takes off 
Rocket ascends 
First stage falls off 

Second stage of rocket continues to fly 

Main sound routines 

“Three days later" message 

Star scrolling routine 

Initialize SID chip 

Data for moon's surface 

Play Canadian National Anthem 

Data for song 

Shake the screen for launch 
Data and initialization of sprites 
Initialize array of song notes 




CORONIA 


Glen Fisher 


I n CORONIA you are the absolute ruler of 
an ancient agricultural kingdom. When 
the game begins, you decide how long you 
want to reign. (Ten years is a good starting 
point.) You start out with 100 peasants, 1,500 
acres of land, and 5,000 bushels of grain. Grain 
is used to buy land, feed the peasants, hire mer¬ 
cenaries, and plant crops for the next year. Your 
goal as the ruler of CORONIA is to make wise 
decisions, so that you will be able to feed your 
subjects, and then they'll be able to help you 
plant crops, which will yield more grain, and 
ultimately expand your kingdom. 

If you don't feed your people enough grain, 



starvation will kill many of them. This has two 
effects: first, you won't be able to plant as much 
land, which will reduce the amount of grain 
you can grow, and just as important, hungry 
subjects are not happy subjects! You'll soon 
discover that even kings are at the mercy of 
their subjects! There are several forms of natu¬ 
ral pestilence you’ll encounter, such as rats in¬ 
festing the grain silos, the dreaded seven-year 
locusts, and diseases such as pox. Sometimes 
you will face the prospect of war, and may find 
it necessary to hire mercenaries to protect your 
land and people. 


1 PG$="C0R0NIA":AU$="GLEN A FISHER"sBG$="RETURN" :rem 1491 

3 ! 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 srem 51784 

100 DEF FNB(X)=SQR(-2*LOG(RND(0)))*SIN(2*{pi}*RND(0)) srem 41017 

110 Z=RND(-TI):TL=INT(RND(0)*6)+1sPR=25 :rem 2111 

120 PRINT CHR?(14):QI=10:TB=29 ;rem 34964 

130 NG$=" {B}UT A THERE A ISN 1 T a ENOUGH a GRAIN i" :rem 40853 

140 NL$="{B}UT A THERE A ISN'TJBNOUGH A LANDl n :rem 37598 

150 NP$="{B}UT a THERE a AREN'T a EN0UGH a PE 0PLE1" srem 27851 

160 LN$="{39°*>" srem 37289 

170 NP=100sNA=1500sNG=5000 srem 26456 

180 OP=NPsOG=NGsOA=NA srem 37608 

190 NB=0 sND-0sNS=0sNV=0:NK=0sIM=0 sIL-0 srem 39542 

200 BT=0sWN=0 srem 51852 

210 PA=0sFD=0sSD=0sRT=0sPY=0sYL=0sDL=0 srem 45661 
220 YR=0SPRINT srem 27920 

230 IN$= n 10"SPRINT "{blu H}OW a MANY a YEARS a DO a YOU a WISH a TO" sPRINT "REIGN? A ";s 
GOSUB 1580 srem 49528 
240 LY=VAL(IN$) srem 54228 

250 LB$="{PJOPULATION"sGOSUB 1800 srem 46669 
260 LB$="{L}AST a YEAR"sZ=OPsGOSUB 1700 srem 23170 
270 TG$=" AA {L}OSSES" srem 36044 

280 LB$="{N}ATURAL a DEATHS"sZ=-NDsGOSUB 1700 srem 64065 
290 LB$="{SJTARVATIONS"sZ=-NSsGOSUB 1700 srem 13969 

300 IF NSOO THEN PRINT " AA (EACH a PEASANT a NEEDED";PP; "BUSHELS) " srem 15883 
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310 LB$=" {P}OX A VICTIMS" sZ=-NV :GOSUB 1700 :rem 2633 

320 LB$="{W}AR a DEATHS"sZ=-NK sGOSUB 1700 srem 45482 

330 TG$=" aa {G}AINS" srem 20319 

340 LB$="{B>IRTHS"sZ-NBsGOSUB 1700 srem 13390 

350 LB$=" {I}MMIGRANTS"sZ ss IMsGOSUB 1700 srem 8969 

360 LB$-"{I }LLEGITIMATE a CHILDREN "sZ=ILsGOSUB 1700 srem 38724 

370 TG$==" aa {T}OTAL" srem 32611 

380 LB$="{CJURRENT^POPULATION"sZ=NP sGOSUB 1710 srem 14474 

390 GOSUB 1740 srem 42186 

400 LB$="{L>AND"sGOSUB 1800 srem 40273 

410 LB$="{DAST a YEAR" s Z-OAsGOSUB 1700 srem 29672 

420 TG$=" AA {DOSSES" srem 23508 

430 IF BT<0 THEN LB$="{S}OLD"sZ=-BTsGOSUB 1700 srem 43906 

440 IF WN<0 THEN LB$="{DOST a IN a WAR"sZ=-WNsGOSUB 1700 srem 14587 

450 TG$»" AA {G>AINS" srem 61861 

460 IF BT>0 THEN LB$="{B}OUGHT"sZ s BTsGOSUB 1700 srem 44872 

470 IF WN>0 THEN LB$="{CJONQUERED"sZ=WNsGOSUB 1700EADY. srem 53310 

480 TG$ b " aa {T)OTAL" srem 22193 

490 LB$= n {C}URRENT A ACREAGE"8Z»NAsGOSUB 1710 srem 43458 

500 GOSUB 1740 srem 64975 

510 LB$="{G)RAIN"sGOSUB 1800 srem 22262 

520 LB$="{DAST a YEAR" sZ=OGsGOSUB 1700 srem 21947 

530 TG$ b " aa {DOSSES" srem 37712 

540 LB$="{U)SED a FOR a FOOD" sZ s -FDsGOSUB 1700 srem 9065 

550 LB$="{SJEEDING"sZ=-SDsGOSUB 1700 srem 52227 

560 LB$="{R}AT A LOSSES"sZ=-RTsGOSUB 1700 srem 18843 

570 LB$=" {MERCENARY a PAY"sZ=-PYsGOSUB 1700 srem 21107 

580 IF DL<0 THEN LB$ S ”{U)SED a TO a BUY a LAND"sZ=-DLsGOSUB 1700 srem 61676 

590 TG$»" aa {G>AINS" srem 20333 

600 LB$ b "{C}ROP a YIELD"sZ=YLsGOSUB 1700 srem 9270 

610 IF YL>0 THEN PRINT " aa AT";PA; "BUSHEL";LEFT$ ("S(PAOl)); "/ACRE" 
srem 2003 

620 IF DL>0 THEN LB$ b ”(P)AYMENT a FOR a SOLD a LAND":Z=DLsGOSUB 1700 srem 2058 
630 TG$=" AA tT>OTAL" srem 32593 

640 LB$ s " (OURRENT^GRAIN" :Z=NG sGOSUB 1710 srem 25929 

650 GOSUB 1740 srem 46141 

660 PRINT "{clr>" srem 22399 

670 IF NP=0 THEN 1370 srem 16915 

680 IF NP/OP<.3 OR NP<20 THEN 1380 srem 5412 

690 IF NG<600 THEN 1400 srem 46861 

700 IF NA=0 THEN 1430 srem 36439 

710 IF NA<200 THEN 1440 srem 48131 

720 IF YR>=LY THEN 1460 srem 7474 

730 OP=NPsOG=NGsOA=NA srem 29659 

740 NB=0sND®0sNS=0sNV=0sNK=0sIM=0sIL=0 srem 57 80 

750 BT*»0sWN=0sWT=0 srem 50815 

760 PA=0sFD=0sSD=0sRT=0sPY=0sYL=0 sDL b 0 srem 38641 
770 YR=YR+1 srem 32544 

780 PRINT "{down)"sGOSUB 1870 srem 50566 
790 Z=INT(PR) srem 34055 

800 PRINT "(down L)AND <s IS a SELLING a FOR";Z ; "BUSHEL";LEFT$ ("S"f-(Z<>1)) | 
"/ACRE." srem 58585 

810 PRINT "(down H)OW a MANY <s ACRES a DO a YOU a WISH a TO" SPRINT "BUY? A ";s 
GOSUB 1870 srem 11484 

820 GOSUB 1570s BT b VAL(IN $)sIF BT=0 THEN 850 srem 10223 
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830 IF INT(PR)*BT>NG THEN PRINT NG$:GOTO 810 :rem 36349 
840 GOTO 890 :rem 40292 

850 PRINT "(down H>OW*MANY*ACRES a DO*YOU*WISH*TO"SPRINT "SELL?»";s 
GOSUB 1870 :rem 33919 

860 GOSUB 1570:BT=VAL(IN$):IF BT=0 THEN 910 :rem 26292 

870 IF BT>NA THEN PRINT NL$:GOTO 850 srem 58505 

880 BT=-BT srem 37902 

890 DL=-INT(PR)*BT :rem 5080 

900 NG=NG+DLsNA=NA+BT srem 39851 

910 AP=10+FNB(0) srem 51848 

920 PRINT "(down H)OW*MANY,*ACRES*DO,*YOU*.WISH*TO"SPRINT "PLANT?*";s 
GOSUB 1870 srem 49963 

930 GOSUB 1570sSD=VAL(IN$)sIF SD=0 THEN 980 srem 1060 
940 IF SD>NA THEN PRINT NL$sGOTO 920 srem 17050 
950 IF SD>NG THEN PRINT NG$sGOTO 920 srem 34315 
960 IF SD>NP*AP THEN PRINT NP$sGOTO 920 srem 41789 
970 NG=NG-SDsSD=-SD srem 423 82 
980 PP=INT((40+5*FNB(0))*10)/10 srem 50028 

990 PRINT "{down H}OW*MANY*BUSHELS*DO*YOU*WISH*TO*USE"SPRINT "FOR*FOOD?*"; 
sGOSUB 1870 srem 49674 
1000 GOSUB 1570s FD=VAL(IN $) srem 27110 
1010 IF FD>NG THEN PRINT NG$sGOTO 990 srem 55179 
1020 I=INT(FD/PP)sIF I>NP THEN I=NP srem 39424 
1030 NS=-(NP-I)sNP=I srem 32170 
1040 NG=NG-FDsFD=-FD srem 29627 
1050 IF RND(0) >.1 THEN 1170 srem 51787 

1060 PY=INT(2.9*PR+2*FNB(0))sIF PY<=0 THEN 1060 srem 58385 
1070 PRINT "{down Y}OUR*NEIGHBOR*DECLARES*WAR*ON*YOU. " srem 47672 
1080 PRINT " {T}HE*MERCENARIES*ARE*DEMANDING ";PY s 
PRINT "BUSHELS*PER^SOLDIER." srem 15503 
1090 PRINT "{down H }OW ..MAN Y ^MERCENARIES. DO. YOU ..WISH" SPRINT "TO*HIRE?*"; s 
GOSUB 1870 srem 36974 
1100 GOSUB 1570s MR=VAL(IN $) srem 38686 
1110 IF PY*MR>NG THEN PRINT NGSsGOTO 1090 srem 7479 
1120 NG=NG-PY*MRsPY=-PY*MR srem 14502 
1130 DR=INT(NP*(25+FNB(0))/100) srem 60661 

1140 NK=-INT(DR*(80+5*FNB(0))/100)sIF NK>0 THEN NK=0 srem 50467 

1150 IF MR>0 THEN IL=INT((MR*NP)/(MR+NP))sIF IL<0 THEN IL=0 srem 57719 

1160 WN=INT((5+FNB(0))*(MR+.7*DR)-NA/3)sNA=NA+WN srem 59507 

1170 GOSUB 1870sPA=7 +FNB(0) srem 2318 

1180 TL=TL-1sIF TL>0 THEN 1210 srem 22204 

1190 GOSUB 1850 sPRINT "{S>EVEN„YEAR^LOCUSTS.":TL=7 sr em 2373 

1200 PA-PA/4 srem 37438 

1210 PA=INT(PA*10)/10 srem 48828 

1220 YL=INT(-SD*PA)sNG=NG+YL srem 32761 

1230 IF RND(0)>.2 THEN 1260 srem 40093 

1240 GOSUB 1850 SPRINT "{R}ATS*INFEST*YOUR*SILOS." srem 48073 
1250 RT=-INT((NG/4)*RND(0))sNG=NG+RT srem 42635 
1260 IF RND(0)>.2 THEN 1290 srem 13363 

1270 GOSUB 1850 sPRINT "{A}^POX*EPIDEMIC*BREAKS*OUT." :rem 7942 

1280 NV=-INT((NP/6) *RND(0)) sIF NV>0 THEN NV=0' srem 3649 

1290 NB=INT((6+FNB(0))*NP/100)sIF NB<0 THEN NB=0 srem 13621 

1300 ND=-INT((4+FNB(0))*NP/100)sIF ND>0 THEN ND=0 srem 17980 

1310 IF NP>0 THEN IM=INT(NA/(NP*5000)+FNB(0))sIF IM<0 THEN IM=0 srem 43331 

1320 NP=NP+NB+ND+NK+IL+IM+NV srem 23995 
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1330 PR=PR+(INT(RND(0)*5)-2+SGN(BT))/2 :rem 1921 
1340 IP PR<1 THEN PR=1 srem 25536 
1350 IF WT THEN GOSUB 1740 srem 4008 
1360 GOTO 250 srem 7402 

1370 PRINT n (Y )OU a HAVE^NO^SUBJECTSaTOaRULE. "sGOTO 1450 srem 829 
1380 PRINT "(T)HEaPEASANTSaTIREaOFaWARaAND" SPRINT "STARVATION. a(Y> 
OUaAREaDEPOSED. " srem 41620 
1390 GOTO 1520 srem 44440 

-1400 PRINT "{YJOUaHAVEaNOaGRAINaTOaHIREaMERCENARIES. " srem 28401 
1410 PRINT "(CJORONIAaISaCONQUERED. " srem 10383 
1420 GOTO 1520 srem 53783 

1430 PRINT "{CJORQNIAaNOaLCNGERaEXISTS."sGOTO 1450 srem 4268 
1440 PRINT "{OJNLYaTHEaPALACEaGROUNDSaREMAINaOF" SPRINT "(C)ORONIA. A "? 
srem 1501 

1450 PRINT "(Y>OOaAREaPOWERLESS. "sGOTO 1520 srem 30905 
1460 PRINT "{A 21°* S)" srem 55129 

1470 PRINT "{-}aa{THE}a<KING>a{IS}a*DEAD}1 A a(->" srem 49571 
1480 PRINT "(Z 21°* X}" srem 27625 

1490 PRINT "{Y)OUaENDEDaTHEaGAMEaWITH";NP;"PEASANTS," srem 52955 

1500 PRINT MID$(STR$(NA),2);"aACRES, a AND";NG;"BUSHELSaOFaGRAIN•" srem 33920 

1510 GOTO 1520 srem 36197 

1520 PRINTsPRINT "{D>OaYOUaWANTaTOaPLAYaAGAIN?a"; sGOSUB 60000 srem 53084 

1525 IF IN$="Q" THEN 1540 srem 54102 

1530 IF LEFT$(IN$,1)<>"N" THEN 170 srem 16274 

1540 GOTO 60600 srem 61790 

1550 GOTO 250 srem 37595 

1570 IN$="" srem 34579 

1580 ZC=lsZT=0sZL«LEN(IN$)SPRINT "(yel)";IN$; srem 28643 

1590 IF TI>ZT THEN ZC=3-ZCsPRINT MID$("{rvs-on rvs-off>",ZC,1);" (B left}"js 
ZT=TI+15 srem 8647 

1600 GET T$sIF T$="" THEN 1590 srem 48837 
1610 IF T$=CHR$(13) AND IN$="Q" THEN 60600 srem 53403 
1620 IF T$=CHR$(13) THEN PRINT "(rvs-off> a( blu)"sRETURN srem 52721 
1630 IF T$OCHR$ (20) OR ZL<=0 THEN 1650 srem 30568 
1640 PRINT "{rvs-off)A(2°left)";sZL=ZL-lsIN$=LEFT$(IN$,ZL)s 
GOTO 1590 srem 5646 
1650 IF ZL=QI THEN 1590 srem 1282 
1660 IF T$="Q" AND ZL=0 THEN 1680 srem 57350 
1670 IF T$<"0" OR T$>"9" THEN 1590 srem 6866 
1680 IN$=IN$+T$sZL=ZL+lSPRINT "(rvs-off}";T$;CHR$(20)?T$;s 
GOTO 1590 srem 5210 
1690 RETURN srem 9341 
1700 IF Z=0 THEN RETURN srem 39318 

1710 IF TG$<>"" THEN PRINT "(down blu}A";TG$sTG$="" srem 42816 
1720 Z$=RIGHT$("{8°space)"+STR$(Z),9) srem 7265 
1730 PRINT "(yel) a";LB$;TAB(TB);Z$ sRETURN srem 54814 
1740 PRINT "(7°space £ur 6°@)" srem 46967 

1750 PRINT "( blu >A(P>RESSA( pur rvs-on RETURN rvs-off blu) aTOa CONTINUE s"j 
srem 36362 

1760 GET Z$sIF Z$="" THEN 1760 srem 54790 
1770 IF Z$=CHR$(13) THEN RETURN srem 32317 
1780 IF Z$<>"Q" THEN 1760 srem 23715 
1790 GOTO 60600 srem 59104 

1800 Z$=LEFT$(LN$,LEN(STR$(YR))) s Z=33-LEN(Z$) sT$=LEFT$ (LN$,LEN(LB$)) 
srem 40685 
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1810 PRINT "(clr £ur A>";T$;"{S}";TAB(Z);"{A 4°*}";Z$;"(S)" :rem 21811 
1820 PRINT cyn}";LB$;"{pur ->”;TAB(Z);"{- cyn Y}EAR";YR;"{pur left -}” 
:rem 58418 

1830 PRINT "(Z}";T$;"{X}";TAB(Z);"{Z 4°*}";Z$;"{X}" :rem 11544 

1840 RETURN :rem 12765 

1850 IF WT=0 THEN PRINT:WT»1 srem 62325 

1860 RETURN srem 4046 

1870 T=PEEK(QL):Z=POS(0):PRINT "{home}"; srem 6103 
1880 PRINT "{yel Y}OU*HAVE";NP; "Uef t}*PEASANT";LEFT$ ("S",-(NP<>1)) ; 
srem 35899 

1890 PRINT NA;"{leftKACRE";LEFT$("S",-(NA<>l)sGOSUB 1920 srem 44448 
1900 PRINT "AND";NG;"{left}*BUSHEL";LEFT$("S",-(NG<>1 ));" a OF*GRAIN.{ pur}"; 
srem 4674 

1910 GOSUB 1920sPRINT LN$sPOKE QL,TsPRINT "{up down blu}"sTAB(Z);s 
RETURN srem 35856 

1920 PRINT LEFT$("{39°space}",39-POS(0))sRETURN srem 8489 
239 lines, proof number = 48736 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in CORONIA 


AP 

Approximate number of people. Used with 
number of people ready to plant. 

Bushels to buy or sell 

NS 

Number of starvations 


NV 

Number of pox victims 

BT 

OA 

Old number of acres 

DL 

Bushels to buy land 

OG 

Old amount of grain 

FD 

Bushels used for food 

OP 

Old number of peasants 

IL 

Number of illegitimate children 

PA 

Average yield in bushels per acre 

IM 

Number of immigrants 

PP 

Bushels of grain needed per peasant 

LB$ 

Summary table label 

PR 

Price of land in bushels of grain 

LY 

Last year of reign 

Number of mercenaries to hire 

PY 

Pay for mercenaries 

MR 

RT 

Current rat losses 

NA 

Number of acres 

SD 

Bushels for planting (seed grain) 

NB 

Number of births 

TL 

Counter for seven-year locusts 

ND 

Number of natural deaths 

WN 

Amount of land won or lost in war 

NG 

Current bushels of grain 

YL 

Crop yield 

NK 

NP 

Number of war deaths 

Number of peasants 

YR 

Present year of the reign 


How CORONIA Works 

100-240 Set up variables 

250-650 Main game loop. Print current status of the 
kingdom 

660-1040 Set up problems for new year and ask 
player for decisions. 

1050-1550 Events that may occur that year 


1570-1690 Special input routine 
1700-1790 Press Return to continue message 
1800-1840 Format numbers 
1850-1860 Print blank lines 
1870-1920 Show current resources 





MAIL 

Roby Hyde 
Hunter Hancock 

H ere’s a useful mail list program that's 
easy to use, but quite powerful. When 
you run the program, it shows a menu. 
To get started, press A for ADD. A blank form 
will be displayed on the screen, with room to fill 
in the name, four address lines, and a ZIP code. 
Press RETURN after completing each line, and 
press the FI function key to accept the entire 
entry, or F3 to abandon it. The normal Commo¬ 
dore 64 editing keys work, including INSERT 
and DELETE and the CURSOR keys. 

The MAIL operations are all simple and self- 
explanatory. When you print labels, you'll need 
standard 3.5" wide, by 15/16" high "one across” 
pin-feed labels. MAIL prints a sample label to 
help you get the forms aligned correctly in the 
printer. 

If you accidentally hit the STOP key, the pro- 
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gram will stop with the message BREAK IN (LINE 
NUMBER). Should this disaster strike, remain 
calm and try the following, which should work: 
move the cursor to a blank line of the screen and 
type the command CONT to tell the program to 
continue. The screen may be messed up, but 
once you can get it to redisplay the menu every¬ 
thing will be fine, and your data will be safe! 

MAIL can be used with a cassette by chang¬ 
ing the variable FD from 8 to 1 in line 100. When 
you make this change, the menu Read and 
Write options say “tape” instead of “disk." 
When you tell MAIL to quit, it checks to see if 
you have saved the file. If you haven't, it asks if 
you really want to quit, since data would be 
destroyed. If you say you do want to quit, MAIL 
takes you at your word and quits, even though 
you lose data. 


1 PG $="MAIL"sAU $="R0BY.HYDE"sA2 $="HUNTER.HANCOCK"; 

BG$="RETURN" :rem 50635 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 :rem 51784 
100 FD=8:DR$-"0:" :rem 23516 
110 QT$=CHR$(34):MM=1000 srem 35361 
120 BL$="{39°space)" srem 50438 
130 DN$="{home 25°down)" srem 14719 
140 MAX=50 srem 38907 
150 Fl$="*"sF2$="{Z}" srem 58054 

160 TD$="DISK"sIF FD<8 THEN TD$-"TAPE" srem 54768 

170 DIM AD$(MAX),A$(6),LB$(6),OP$(10) srem 25274 

180 RESTOREsFOR 1=1 TO 6sREAD LB$(I)sNEXT I srem 28541 

190 DATA "NAME..", "ADDR.l","ADDR.2" srem 62534 

200 DATA "ADDR.3","ADDR.4","ZIP..." srem 65398 

210 OP$=""sFOR I®1 TO 10 srem 44554 

220 READ OP$(I)sOP$=OP$+LEFT$<OP$(I),1) srem 9289 

230 IF OP$(I) ="FAST" THEN OP$(I)-"LIST 1 * 3 4 5 6 * srem 26654 

240 NEXT I srem 37256 

250 DATA READ,SORT,PRINT,WRITE,QUIT,DELETE,ADD,MODIFY,LIST,FAST srem 3122 
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260 GOTO 510 :rem 2823 

270 PRINT "{down}SORTING...." srem 60706 

280 N*COsTP=lsLO(l)*lsUP(l)=N srem 3309 

290 IP CO=0 THEN 480 srem 1517 

300 IF TP<=0 THEN RETURN srem ^5134 

310 LB=LO(TP)sUB=UP(TP)$TP=TP-1 srem 19922 

320 IF UB<=LB THEN 300 srem 4407 

330 I=LBsJ=UB sTE$=AD$(I) srem 18420 

340 IF J<1 THEN 370 srem 4445 

350 IF MID$(TE$,ASC(TE$))>=MID$(AD$(J),ASC(AD$(J))) THEN 370 srem 2743 
360 J=J-1sGOTO 340 srem 65268 

370 IF J<=I THEN AD$(I)=TE$sGOTO 440 srem 31119 
380 AD$(I)=AD$(J)s1=1+1 srem 52855 
390 IF I>N THEN 420 srem 10874 

400 IF MID$(AD$(I),ASC(AD$(I)))>=MID$(TE$,ASC(TE$)) THEN 420 srem 37988 
410 1*1+1sGOTO 390 srem 47631 

420 IF J>I THEN AD$(J)*AD$(I)sJ=J-1sGOTO 350 srem 20028 
430 AD$(J)*TE$ sI*J srem 31018 
440 TP*TP+1 srem 28502 

450 IF I-LBCUB-I THEN LO(TP)*1+1sUP(TP)*UBsUB*I-lsGOTO 320 srem 49410 
460 LO(TP)=LBsUP(TP)=1-1sLB*I+l srem 12603 
470 GOTO 320 srem 11690 

480 PRINT "{clr 2°downlNOTHING A TO A ";OP$(OP);{down}" srem 11173 
490 PRINT "HIT A {rvs-on}RETURN{rvs-off} A FOR A MENU"; srem 41451 
500 GET A$sIF A$*"" THEN 500 srem 48237 
505 IF A$="Q" THEN 2740 srem 20783 

510 PRINT "{clr)";CO;"ENTR";sIF CO*l THEN PRINT "Y"; srem 15246 
520 IF COOl THEN PRINT "IES"; srem 62008 

530 IF FRE(0)<MM THEN PRINT TAB(18);"ONLY";FRE(0);"BYTES A LEFT"; srem 5821 
540 PRINT srem 53540 

550 FOR 1*1 TO 13SPRINT "{3°R}sNEXT IsPRINT srem 58935 
560 PRINT "{down rvs-on)A{rvs-off left up £ down)DD A ENTRIES" srem 41112 
570 PRINT "{down rvs-on}M{rvs-off left up 0 down}ODIFY a AN a ENTRY" 
srem 63424 

580 PRINT "{down rvs-on)D{rvs-off left up @ down}ELETE A AN A ENTRY" 
srem 49097 

590 PRINT "{down rvs-on)L{rvs-off left up § down}IST«ENTRIES A (ON*{rvs-on) 
S{rvs-off left up @ down}CREEN A OR A {rvs-on}P{rvs-off left up @ down} 
RINTER)" srem 48545 

600 PRINT "{down rvs-on}F{rvs-off left up down}AST A LIST A OF A NAMES" 
srem 56479 

610 PRINT "{down rvs-on}S{rvs-off left up @ down}ORT A LIST A (BY A {rvs-on} 

L{rvs-off left up @ down}AST A NAME A OR A {rvs~on}Z{rvs-off left up @ down} 
IP a CODE)" srem 55783 

620 PRINT "{down rvs-on}P{rvs-off left up down}RINT A LABELS" srem 10537 
630 PRINT "{down rvs-on}R{rvs-off left up @ down}EAD A FILE A FROM A ";TD$ 
srem 36736 

640 PRINT "{down rvs-on}W{rvs-off left up @ down}RITE A FILE A TO A " TD$ 
srem 2853 8 

650 PRINT "{down rvs-on}Q{rvs-off left up ^ down}UIT" srem 29957 

660 PRINT "{down}WHAT A SHALL A I a DO"; srem 16499 

670 GOSUB 2900 srem 35324 

680 OP=0sFOR 1=1 TO LEN(OP$) srem 6537 

690 IF MID$(OP$,I,l)=IN$ THEN OP*IsI=99 srem 59698 

700 NEXTsIF OP=0 THEN PRINT "{3°left}";sGOTO 670 srem 21995 
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710 PC-6:ON OP GOTO 1540,1920 f 2250,1340,2740,1790 f 730,2680,2810,2960 
:rem 61873 

730 EN=CO+l sreni 7299 

740 IF EN>MAX THEN PRINT "{clr 3°down}CAN'T*H0LDJ40RE*THAN";MAX; 

"ENTRIES.(down)"sGOTO 490 srem 32353 
750 PRINT " {clr} ^EN TER ^.ADDRESS*#” EN srem 50763 
760 FOR N»1 TO 6:GC(N)=0:A$(N)="":NEXT srem 8609 
770 GOSUB 2630 srem 40966 
780 PRINT "{home 12°down}" srem 5768 

790 PRINT "PRESS*{rvs-on}^Fl^irvs-Off}**TO*ACCEPT*ENTRY" srem 35265 
800 PRINT "(down 6 "space rvs-on) A F3*{rvs—off} **TO^ABANDON*ENTRY" 
srem 53704 

810 RW=6sCL=7sCH=0sZT=TI srem 4991 

820 P=CRT+WD*RW+CLsCP=CM+WD*RW+CL srem 14954 

830 POKE CP/PEEK(646) srem 54789 

840 PRINT LEFT$(DN$,RW+1);TAB(CL); srem 9564 

850 IF TI>ZT THEN POKE P,(PEEK(P)+128) AND 255sZT=ZT+20 srem 65318 

860 GET IN$sIF IN$="" THEN 850 srem 57722 

870 POKE PfPEEK(P) AND 127 srem 20234 

880 CH s ASC(IN$) srem 59906 

885 IF CH=34 THEN 860 srem 47304 

890 IF CH-133 THEN 1050 srem 50262 

900 IF IN$-"{f3>" THEN 510 srem 26424 

910 IF (CH>32 AND CH<95) OR CH>=160 THEN 1020 srem 51398 

920 IF CH=13 THEN CL»7sIF RW<11 THEN RW=RW+1sGOTO 820 srem 11840 

930 IF CH=29 OR CH=32 THEN IF CL<39 THE* CL-CL+1sGOTO 820 srem 23794 

940 IF CH=157 AND CL>7 THEN CL=CL-1sGOTO 820 srem 56808 

950 IF CH-145 AND RW>6 THEN RW=RW-1sGOTO 820 srem 10437 

960 IF CH=17 AND RW<11 THEN RW=RW+1sGOTO 820 srem 18628 

970 IF CHO20 OR CL<=7 THEN 990 srem 9995 

980 PRINT IN$;$CL=CL-lsIF CL<GC(RW-5) THEN GC(RW-5)=GC(RW-5)-1 srem 60287 
990 IF CH0148 OR GC(RW-5) +1>*WD THEN 1010 srem 11140 
1000 GC(RW-5)=GC(RW-5)+1sPRINT IN$;” A {left}"; srem 13030 
1010 GOTO 820 srem 3870 

1020 CL=CL+lsIF CL>39 THEN CL=39sIN$»" n srem 3411 
1030 IF CL>GC(RW-5) THEN GC(RW-5)=CL srem 26337 
1040 PRINT IN$;sGOTO 820 srem 6301 

1050 PRINT "{home 13°down}";BL$sPRINTsPRINT BL$;"{3°up}" srem 21302 

1060 F=0sFOR Nl«=l TO FC srem 21077 

1070 A$=""sIF GC(Nl)<7 THEN 1150 srem 1573 

1080 B$«""sFOR N2=7 TO GC(N1) srem 25479 

1090 N=CRT+(N1+5)*WD+N2sPK=PEEK(N)sPOKE N,128+PK srem 16367 

1100 IF PK<32 THEN PK«PK+64 srem 26228 

1110 IF PK»34 OR PK«98 THEN PK«32 srem 31313 

1120 IF PK*32 THEN B$®B$+" A "sGOTO 1140 srem 42867 

1130 A$=A$+B$+CHR$(PK)sB$=""sF=l srem 3153 

1140 NEXT N2 srem 14324 

1150 A$(Nl)®A$ srem 53228 

1160 NEXT Nl srem 41412 

1170 IF F»0 AND EN<»CO THEN 1820 srem 16668 
1180 IF F«0 THEN 510 srem 53528 
1190 A$«A$(1)sGOSUB 1280sA$(1)»A$ srem 7458 
1200 AD$=""sFOR I»1 TO FC srem 34954 
1210 AD$ b AD$+A$(I)+F 1$sNEXT I srem 63577 
1220 AD$(EN)»AD$sAL b 1 srem 39593 


106 


COMMODORE 64 FUN AND GAMES Volume 2 


1230 IF EN<=C0 THEN 510 :rem 37169 
1240 CO=EN srem 25830 

1250 IF FRE(O)<HH THEN PRINT "ONLY n ;FRE(0);"BYTES*LEFT{down}" srem 59175 
1260 PRINT "ANY a MORE a ADDRESSES"; sGOSUB 2900sPRINTsIF IN$="N" THEN 
510 srem 59099 

1265 IF IN$="Q" THEN 2740 srem 41119 

1270 GOTO 730 srem 45200 

1280 IF A$="" THEN 1320 srem 47903 

1290 FOR J=LEN(A$) TO 1 STEP -1 srem 14748 

1300 IF MID$(A$,J,1)=" a " THEN A$=MID$(A$,J+l)+F2$+LEFT$(A$,J)s 
RETURN srem 22687 
1310 NEXT J srem 62099 
1320 A$=A$+F2$ srem 20633 
1330 RETURN srem 5023 
1340 IF CO=0 THEN 480 srem 10761 

1350 PRINT "{clr 3°down}WRITE A INTO A WHAT A FILE? A ";sGOSUB 60000 srem 58746 

1360 IF IN$="" THEN 510 srem 37015 

1370 IF FD<8 THEN 1420 srem 7518 

1380 T$=LEFT$(IN$,12)+".OLD" srem 39711 

1390 OPEN 15,8/15sPRlNT#15r"S"jDR$;T$ srem 22605 

1400 PRINT#15,"R";DR$;T$;"=";IN$ srem 58770 

1410 CLOSE 15 srem 11792 

1420 DR=1sFI$=IN$ sGOSUB 3330sIF ER THEN 490 srem 57769 

1430 PRINT#1 , "*MAIL*";CR$; srem 34123 

1440 PRINT#l,CO;CR$; srem 56722 

1450 FOR EN=1 TO CO srem 4433 

1460 PRINT srem 31430 

1470 GOSUB 2500 srem 4585 

1480 FOR 1=1 TO 6 srem 17086 

1490 PRINT#1,QT$;A$(I);QT$;CR$; srem 15818 

1500 NEXT I srem 33446 

1510 NEXT EN srem 6624 

1520 GOSUB 3440 srem 59449 

1530 AL=0sGOTO 510 srem 1479 

1540 GOSUB 2760sIF F6=0 THEN 510 srem 55032 

1550 PRINT "{clr}" srem 9611 

1560 PRINT "(clr 3°down)READ A FROM A WHAT A FILE? A ";sGOSUB 60000s 
FI$=IN$ srem 29783 
1570 IF IN$="" THEN 510 srem 14969 
1580 DR=0sGOSUB 3330sIF ER THEN 490 srem 51413 
1590 PRINT "{2°down)READING A " FI$ srem 38255 
1600 INPUT#l,T$sIF T$<>"*MAIL*" THEN 1770 srem 9560 
1610 INPUT#1,T srem 27117 

1620 IF T<=MAX THEN CO=TsGOTO 1660 srem 29531 

1630 PRINT "{down}" FI$; "*HAS";T;"ENTRIES. «,I*CAN 1 T" srem 13071 

1640 PRINT "{down}HOLD A MORE A THAN";MAX;"ENTRIES.{down}" srem 24734 

1650 GOTO 1780 srem 37751 

1660 FOR EN=1 TO CO srem 32765 

1670 AD$="" srem 8856 

1680 FOR 1=1 TO 6 srem 53690 

1690 INPUT#1,A$ srem 12873 

1700 IF 1=1 THEN GOSUB 1280 srem 64268 

1710 AD$=AD$+A$+F1$ srem 11369 

1720 NEXT I srem 29995 

1730 PRINT srem 12569 
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1740 AD$(EN)=AD$ :rem 5428 

1750 NEXT EN :rem 35094 

1760 GOSUB 3440:GOTO 510 :rem 43983 

1770 PRINT "{down)I*DIDN'T a WRITE a THAT*FILE.{ down}" :rem 3577 
1780 GOSUB 3440:GOTO 490 :rem 35405 
1790 IF CO=0 THEN 480 :rem 50288 

1800 PRINT "{clr 2°down}DELETE„WHICH„ENTRY? <s "; sGOSUB 60000 :rem 44540 

1805 IF IN$="Q" THEN 2740 srem 32603 

1810 GOSUB 1890:IF EN<0 THEN 490 :rem 21179 

1820 GOSUB 2500 :rem 37478 

1830 GOSUB 2630 :rem 60229 

1840 PRINT "{downJOKAY^TO^DELETE";:GOSUB 2900:PRINT :rem 20556 
1845 IF IN$="Q" THEN 2740 srem 20445 

1850 IF IN$O n Y" THEN PRINT " (down}ENTRY";EN; "NOT*DELETED. {down} " : 

GOTO 490 srem 9741 

1860 IF COEN THEN FOR N1=EN TO CO-1sAD$(Nl)=AD$(Nl+1)sNEXT N1 srem 45303 
1870 PRINT "{down}ENTRY";EN;"DELETED.{down}" srem 45859 
1880 AD$(CO)=""sCO=CO-lsAL=1sGOTO 490 srem 4599 
1890 EN=-1sIF IN$="" THEN RETURN srem 55174 

1900 EN=VAL(IN$)sIF EN<1 OR EN>CO THEN PRINT " {down}NO*SUCH*ENTRY. (down) " s 
EN=-1 srem 52204 
1910 RETURN srem 6623 
1920 IF CO=0 THEN 480 srem 23311 

1930 PRINT "{clr 3°down}YOU*CAN*SORTJBY" srem 15809 

1940 PRINT "{down rvs-on}Z{rvs-off}IP*CODE" srem 62737 

1950 PRINT "{down rvs-on)L{rvs-off }AST*NAME” srem 59516 

1960 PRINT "{down}WHICH*WOULD*YOU*LIKE M ? srem 29568 

1970 GOSUB 2900 srem 46630 

1975 IF IN$="Q" THEN 2740 srem 28859 

1980 IF IN$="L" THEN 2020 srem 59267 

1990 IF IN$=CR$ THEN 510 srem 36362 

2000 IF IN$="Z" THEN 2040 srem 20755 

2010 PRINT "{3°left>";sGOTO 1970 srem 31324 

2020 FOR 1=1 TO COsAD$(I)=CHR$(2)+AD$(I)sNEXT I srem 26679 

2030 GOTO 2100 srem 30199 

2040 FOR 1=1 TO COsAD$=AD$(I) srem 56941 

2050 FOR N=LEN(AD$)-1 TO 1 STEP -1 srem 32251 

2060 IF MID$(AD$,N,1)=F1$ THEN 2080 srem 6548 

2070 NEXT NsN=0 srem 21200 

2080 AD$(I)=CHR$(N+2)+AD$ srem 3498 

2090 NEXT I srem 60012 

2100 PRINTsGOSUB 270 srem 20585 

2110 FOR 1=1 TO CO srem 25399 

2120 AD$(I)=MID$(AD$(I),2) srem 25805 

2130 NEXT I srem 27548 

2140 GOTO 510 srem 25966 

2250 IF CO=0 THEN 480 srem 12940 

2260 PRINT "{clr}" srem 65058 

2270 OPEN 4,4 srem 61902 

2280 FOR 1=1 TO 5 srem 22223 

2290 PRINT#4 f M ******************************** n :rem 18045 
2300 NEXT I srem 21997 
2310 PRINTI4 srem 41915 

2320 PRINT n {down}WANT*ANOTHER*TEST*LABEL";sGOSUB 2900sPRINT srem 46355 
2325 IF IN$="Q" THEN 2740 srem 29219 
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2330 IF IN$="Y" THEN 2280 :rem 60921 

2340 PRINT ”{2°down)PRESS a A a KEY a TO a ABORT A PRINTING" :rem 51930 

2350 FOR EN=1 TO CO :rem 45526 

2360 GOSUB 2500 :rem 45454 

2370 FOR N=1 TO 4 srem 7717 

2380 PRINT#4/A$(N) srem 63781 

2390 NEXT N srem 46974 

2400 A$=LEFT$ (A§ (5) ,32-LEN (A$ (6)) —1) srem 39593 

2410 PRINT#4,A$;LEFT$(BL$,32-LEN(A$)-LEN(A$(6)));A$(6) srem 38025 
2420 PRINTI4 srem 52608 

2430 GET T$sIF T$O l,n THEN 2450 srem 13868 
2440 NEXT BN srem 56551 
2450 CLOSE 4 srem 20372 
2460 GOTO 510 srem 57850 

2500 N2=0 :AD$=AD$ (EN) sLE-LEN(AD$) sGC(0) =4sQ=l srem 46696 

2510 N0=1sFOR Nl=l TO LE srem 58814 

2520 A$=MID$(AD$,N1,1) srem 54069 

2530 IF A$-F2$ THEN N2=Nl+l srem 39554 

2540 IF A$=F1$ THEN 2570 srem 36590 

2550 NEXT NlsGOTO 2620 srem 30245 

2570 IF N2>0 THEN A$(Q)=MID$(AD$,N2,Nl-N2)+LEFT$(AD$,N2-2)sN2=0s 
GOTO 2590 srem 2124 

2580 A$(Q)=MID$(AD$,N0,N1-N0) srem 23455 
2590 GC(Q)=6+LEN(A$(Q))sN0=Nl+l srem 5330 

2600 IF LEN(A$(Q))>32 THEN A$(Q)=MID$(A$(Q),2,32) srem 5629 

2610 Q=Q+1sIF Q<=FC THEN 2550 srem 57588 

2620 RETURN srem 64849 

2630 PRINT "(home 5°down}" srem 19859 

2640 FOR 1=1 TO 6 srem 58529 

2650 PRINT LB$(I);"s";A$(I) srem 62234 

2660 NEXT I srem 58605 

2670 RETURN srem 34790 

2680 IF CO=0 THEN 480 srem 12541 

2690 FOR N=1 TO 6sA$(N)=""sNEXT srem 43602 

2700 PRINT "{clr}MODIFY A WHICH A ENTRY? A ";sGOSUB 60000 srem 64332 

2705 IF IN$="Q" THEN 2740 srem 51121 

2710 GOSUB 1890sIF EN<0 THEN 490 srem 61620 

2720 GOSUB 2500sGOSUB 2630 srem 42937 

2730 GOTO 780 srem 39576 

2740 OP=5sGOSUB 2760sIF F6=l THEN GOTO 60600 srem 58170 
2750 GOTO 510 srem 25228 

2760 F6=0sIF AL=0 THEN F6=lsRETURN srem 46312 

2770 PRINT "{clr 2°down}YOU A HAVE A NOT A SAVED A YOUR A CHANGES." srem 25813 
2780 PRINT "{downJDO A YOU A {rvs-on}REALLY{rvs-off> a WANT a TO a " OP$(OP);s 
GOSUB 2900 srem 34315 

2785 IF IN$="Q" THEN 60600 srem 3337 

2790 IF IN$="Y" THEN F6=lsAL=0 srem 2863 
2800 RETURN srem 58769 

2810 PRINT "{clr>";sIF CO=0 TH0« 480 srem 6273 

2820 PRINT "{2°down)LIST A TOs" srem 46620 

2830 PRINT "{rvs-on down>P{rvs-offJRINTER" srem 55698 

2840 PRINT "{rvs-on down}S{rvs-off}CREEN" srem 16986 

2850 PRINT "{down)WHERE A TO";sGOSUB 2900 srem 7937 

2855 IF IN$="Q" THEN 2740 srem 50643 

2860 IF IN$="P" THEN 3160 srem 64138 
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2870 IF IN$=CR$ THE! 510 :rem 21458 
2880 IF IN$="S" THEN 2980 :rem 53550 
2890 PRINT "{4°left>";sGOTO 2850 :rem 35199 
2900 ZC=lsZT=TISPRINT "? A "; srem 35874 
2910 GET IN$:IF IN$<>"" THEN 2940 srem 15059 
2920 IF TI>ZT THEN PRINT MID$("? A ",ZC,1)>"{left>sZC=3-ZCs 
ZT=TI+15 srem 40077 
2930 GOTO 2910 srem 5996 

2940 PRINT " A "; sIF (ASC(IN$) AND 127)>31 THEN PRINT "(lef t)";IN$; 
srem 61600 

2950 RETURN srem 64192 

2960 IF CO=0 THEN 480 srem 6470 

2970 FC=1 srem 13113 

2980 PS=FCsIF FC>1 THEN PS=PS+1 srem 57582 

2990 PS=INT(23/PS) srem 39729 

3000 EN=1 srem 28129 

3010 PRINT "(clr)"; sN=l srem 12266 

3020 GOSUB 2500 srem 60086 

3030 A$="{rvs-on)#"+MID$(STR$(EN) , 2 ) sLB$(1)=LEFT$(A$+"{rvs-off 4°space)", 
8) srem 3073 

3040 FOR 1=1 TO FC srem 56125 
3050 PRINT LB$(I);"s";A$(I) srem 35125 
3060 NEXT IsIF FCOl THEN PRINT srem 53603 
3070 EN=EN+1sIF EN>CO THEN 3140 srem 58774 
3080 N=N+1sIF N<=PS THEN 3020 srem 12476 
3090 IF FC=1 THEN PRINT srem 26152 

3100 PRINT "PRESS A (rvs-onJRETURN{rvs-off) A FOR A MORE"; srem 43972 
3110 GET T$sIF T$="" THEN 3110 srem 60668 

3120 IF T$=" A " OR T$="{rvs-off)" THEN RESTOREsREAD LB$(l)s 
GOTO 510 srem 23523 
3130 GOTO 3010 srem 63260 
3140 IF FC=1 THEN PRINT srem 11674 
3150 RESTOREsREAD LB$(1)sGOTO 490 srem 63213 
3160 OPEN 4,4 srem 55215 
3170 EN=1 srem 10457 
3180 N=1 srem 45148 
3190 GOSUB 2500sC=0 srem 58343 

3200 A$=MID$(STR$(EN) , 2 ): A$=RIGHT$(" aa "+A$, 3)+■ A "sPRINT#4,A$;s 
C=LEN(A$) srem 42988 

3210 PRINT#4,A$(1);sC=C+LEN(A$(1)) srem 54500 
3220 FOR 1=2 TO 6 srem 41430 

3230 IF A$(I)<>"" THEN PRINT#4,LEFT$(BL$,32+4-C);sC=0sPRINT#4,A$(I)s 
N=N+1 srem 287 
3240 NEXT I srem 55058 

3250 IF C>1 THEN PRINT#4sN=N+l srem 32942 
3260 EN=EN+1sIF EN>CO THEN 3290 srem 17739 
3270 N=N+1sIF N<56 THEN 3190 srem 40996 
3280 GOTO 3180 srem 37791 
3290 CLOSE 4sGOTO 510 srem 33053 
3330 IF FD>2 THEN 3370 srem 42955 

3340 PRINT "{down}PLEASE A REWIND A TAPE" FD "Qeft}, n s 

PRINT "AND A THEN A PRESS A {rvs—on)RETURN" srem 26410 
3350 GOSUB 3450 srem 39539 
3360 OPEN l r FD,DR,FI$sRETURN srem 25096 

3370 FL$=DR$+FI$sOPEN 15,8,15sIF DR=1 THEN PRINT#15,"S" FL$ srem 47382 
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3380 FL$=FL$+",S, "+MID$("RRW",DR+2,1) sOPEN 1,8,2,FL$ srem 37560 
3390 INPUT#15,ER,ER$,TK,SC:IF ER»0 OR (DR<0 AND ER=62) THEN ER$=" n : 

RETURN :rem 40318 
3400 IF ER s 62 THEN 3430 :cem 48216 
3410 CLOSE 1 SPRINT "{down}" ER;ER$TK;SC: 

PRINT "{down}FIX*PROBLEM A AND*TYPE A 1 CONT'. ":END srem 45557 
3420 GOTO 3380 srem 27794 

3430 PRINT "{down)CAN'T A OPEN A " FI$ " A ON A DRIVE A " LEFT$(FL$,1);"{down}" 
srem 42962 

3440 CLOSE IsCLOSE 15sRETURN srem 36499 
3450 GET T$sIF T$="" THEN 3450 srem 6988 
3460 RETURN srem 56450 

385 lines, proof number = 55892 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in MAIL 

A$() Storage for single mailing entry 
AD$() Mail entries in compact form 
AL Flag if current entries have been saved 

BL$ String for a blank line (40 spaces) 

CH ASCII code of current key press 

CL Column of cursor for custom input routine 

CO Current number of entries 

CP Color memoir pointer for cursor 

DR Type of disk file 

DR$ Drive number 

EN Number of entries 

Fl$ Field separator for compact storage of mail 
entries 

F6 Flag for quit 

FC Number of fields per entry 

FD Device number 
FI$ Current file name 
FL$ Full file name 


GC() Greatest number of columns for each row of 
current entry 

LB$() Labels for each field of an entry 
LE Length of a string 
MA Maximum number of entries 

MN Minimum memory unused before warning 
message appears 
OP Pointer to current option 
OP$ First letter of each option 
OP$() Menu options 
P Current cursor screen location 
PK PEEK value of screen memory 
PS Page spacing for screen display of entries 
QT$ ASCII character code for a quote 
RW Row of cursor in custom input routine 
TD$ Name of input/output device 
ZT Timing variable for blinking cursor 


How MAIL Works 



100-260 

Initialize variables and arrays 

2250-2460 

Print mailing labels 

270-470 

Sorting routine 

2500-2620 

Convert compact mail entry into printable 

480-505 

Message for no entries 


form 

510-710 

Display menu and number of entries, get 

2630-2670 

Print a single entry 


key press, go to action code 

2680-2730 

Modify an entry 

730-1270 

Add an entry and custom cursor routine 

2740-2750 

Quit the program 

1280-1330 

Put name in compact form 

2760-2800 

Ask for option 

1340-1530 

Write entries 

2810-2890 

List entries 

1540-1780 

Read entries 

2900-2950 

Input routine to get one key press 

1790-1910 

Delete an entry 

2960-3290 

List entries to printer 

1920-2140 

Sort entries 

3330-3460 

Open disk (or cassette) 




REBOUND 


Steven Larsen 


R EBOUND is a simple but challenging 
game where you use the M and N keys to 
deflect a constantly moving ball. The 
goal is to make the ball hit the target before the 
timer runs out. To make things a little easier, 



you can clear a deflection symbol by pressing 
the space bar just as the ball hits the deflector. 

Note: REBOUND uses sound. 


1 PG$="REBOUND":AU$="STEVEN,JiARSEN":BG$="RETURN" srem 41717 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 :rem 51784 

100 HG=24:RS=160:DEF FNR-(R)=RND(1)*R:T0=102:BL=81:BC=32:K4=78s 
K6=77 :rem 209 

110 GOSUB 1150:GOSUB 1100 :rem 49531 
120 GOSUB 1010 :rem 22375 

130 FOR Z=SID TO SID+24sPOKE Z,0:NEXT :rem 41118 

140 POKE SID4-0,71:POKE SID+1,5 srem 35134 

150 POKE SID+12,85:POKE SID+13,85 srem 1934 

160 POKE SID+5,6:POKE SID+6,6 srem 4920 

170 POKE SID+9*0sPOKE SID+10,5 srem 57888 

180 POKE SlD+24,15 srem 24492 

190 TC=CM-CRT srem 39952 

200 NT=0:NG=NG+1 srem 48808 

210 PRINT "tclr red)" srem 23221 

220 POKE VIC+32,14:POKE VIC+33,1 srem 42575 

230 POKE VIC+24,31 srem 31709 

240 GOSUB 800 srem 30178 

250 FOR 1=1 TO WDsZ=(CRT+I-l)SPOKE Z,RS:POKE TC+Z,6:Q=(CRT+I-1+(WD*HG>) 
srem 59194 

260 POKE Q,RS:POKE TC+Q,6:NEXT srem 16170 

270 FOR 1=1 TO HG-1:Z=(CRT+(WD*I))sPOKE Z,RS:POKE TC+Z,6: 

Q=(CRT+(WD*(1+1))-1) srem 29152 
280 POKE Q,RS:POKE TC+Q,6sNEXT srem 52567 
290 D%=FNR(4)sIF D%=0 THEN D%=4 srem 52551 

300 A=(CRT+WD*HG/2)+WD/2sIF A=T THEN POKE (T+41),T0 srem 64585 
310 POKE A,BL:TI5="0000"+T$(SK) srem 15690 

320 PRINT "{home}" TAB(3) "trvs-on)*TARGETS*HIT:" NT srem 53523 
330 TT$=TI$sPRINT "{home}” TAB(WD-14) "{rvs-on}„TIME:srem 40339 
340 PRINT TAB(26)M(SK)-VAL(MID$(TT$,4,1)) "(left)s"; srem 31240 
350 PRINT RIGHT$("0"+MID$(STR$(59-VAL(MID$(TT$,5))>,2),2) srem 24232 
360 IF VAL(TT$)>MS(SK) THEN 920 srem 57945 
370 A0=A:ON D% GOSUB 470,480,490,500 srem 46873 
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380 C=PEEK<A)sIF 099 THEN 510 srem 13783 

390 GET I$sIF 1$="" THEN 510 srem 2571 

400 IF I$="Q" THEN 710 :rero 11437 

410 IF I$="N" THEN POKE A,K4sG0T0 450 :rem 42039 

420 IF I$=" A " THEN POKE A,BC srem 15802 

430 IF I$="M" THEN POKE A,K6sGOTO 450 srem 50722 

440 GOTO 460 srem 41669 

450 POKE TC+A,0 srem 28511 

460 C=PEEK(A)sGOTO 510 srem 45707 

470 A=A+1sRETURN srem 50879 

480 A=A+WDsRETURN srem 19142 

490 A=A-lsRETURN srem 65128 

500 A=A-WDsRETURN srem 20271 

510 IF COBC THEN 550 srem 26151 

520 POKE A,BLsPOKE TC+A,8 srem 37975 

530 IF PEEK(A0)=BL THEN POKE A0,BC srem 57653 

540 GOTO 330 srem 44789 

550 POKE SID,INT(RND(1)*60) srem 34933 

560 IF COTO THEN POKE SID+4,129 srem 58100 

570 POKE SID+4,128sIF C<128 THEN 600 srem 50151 

580 GC«FRE(0)sD%»D%+2sIF D%>4 THEN D%=D%-4 srem 7166 

590 POKE A0,BCs A=A0sGOTO 330 srem 62408 

600 IF COTO THEN 630 srem 28384 

610 POKE TC+A,8sNT=NT+lsRT=RT+lsPOKE T,BLsPOKE A0,BC srem 27908 
620 TT$=TI$sGOSUB 860sGOSUB 800sTI$=TT$sGOTO 320 srem 36121 
630 IF C=K4 THEN 660 srem 56772 

640 IF (D%=1) OR <D%=3) THEN D%=D%+1sGOTO 700 srem 7571 

650 IF (D%=2) OR (D%=4) THEN D%=D%-1sGOTO 700 srem 41699 

660 IF <D%=1> OR (D%=3) THEN D%=D%-1sGOTO 680 srem 48186 

670 IF (D%=2) OR (D%=4) THEN D%=D%+1 srem 7201 

680 IF D%=0 THEN D%=4 srem 27067 

690 IF D%»5 THEN D% b 1 srem 54700 

700 POKE A0,BCsGOTO 330 srem 59107 

710 POKE VIC+24,21 srem 34231 

720 PRINT n {clr 2°down)NUMBER A OF A TARGETS a THISaGAMEs" NT srem 60976 

730 IF NT>MAX THEN NAX«NT srem 41801 

740 PRINT "{2°down>MAXIMUMATHUSAFARs" MAX srem 41204 

750 GET Z$sIF Z$O n " THEN 750 srem 13970 

760 PRINT "{4°down>WANTATOAPLAYAAGAIN?A n ;sGOSUB 60000sIF IN$="Q" THEN 
60600 srem 54484 

770 IF IN$= 5 "" OR IN$="Y" THEN GC=FRE(0) sGOTO 200 srem 16459 

780 POKE VIC+24,21 srem 27771 

790 GOTO 60600 srem 17357 

800 T=INT(FNR(WD*HG)+CRT) srem 36751 

810 IF (T<(CRT+WD)) OR (T>(CRT+WD*(HG-l))) THEN 800 srem 13989 

820 FOR 1=1 TO HG-lsZ=(CRT+(WD*I))sQ=(CRT+(WD*(1+1))-1) srem 1915 

830 IF (Z=T) OR (Q=T) THEN 800 srem 62084 

840 NEXTsPOKE T,TOsPOKE TC+T,6 srem 7637 

850 RETURN srem 31033 

860 POKE SID+7,0 srem 15331 

870 POKE SID+11,65 srem 3967 

880 FOR Z=0 TO 70sPOKE SID+8,ZsNEXT Z srem 4732 
890 POKE SID+11,0 srem 60486 
900 RETURN srem 53890 

920 POKE SID+14,244sPOKE SID+15,15 srem 8206 
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930 POKE SID+19,7:POKE SID+20,7 srem 24402 
940 FOR Z=1 TO 17 srem 44791 
950 POKE SID+18,33 srem 45657 
960 FOR DE=1 TO 10:NEXT DE srem 8898 
970 POKE SID+18,32 srem 35495 
980 FOR DE“1 TO 12sNEXT DE srem 30246 
990 NEXT Z srem 33809 
1000 GOTO 710 srem 36605 

1010 POKE VIC+32,14sPOKE VIC+33,1sPRINT "{clr blu}" srem 39982 
1020 PRINT "1 ) a EASY" srem 24600 
1030 PRINT "2) ^MEDIUM" srem 1158 
1040 PRINT "3 )aDIFFICULT" srem 52157 

1050 PRINTsPRINT "{blu>SKILL A LEVEL?{red> A *; sGOSUB 60000:IF IN$="“ THEN 
IN$““2“ srem 1345 
1060 T»VAL(IN$) srem 46010 
1070 IF IN$»"Q“ THEN 60600 srem 28308 

1080 IF T<1 OR T>3 THEN PRINT "{3°up}"sGOTO 1050 srem 46040 

1090 SK=TsRETURN srem 13181 

1100 T$(l)»"30"sMS<l)“158sM(l)“l srem 29171 

1110 T$(2)“"00"sMS(2>»58sM(2)=0 srem 13377 

1120 T$(3)““30"sMS(3)=58sM(3)=0 srem 64558 

1130 RETURN srem 51554 

1150 PRINT "{clrJSETTING^UP..." srem 57790 

1160 B“49152sl“0 srem 51236 

1170 READ Vs IF V“-l THEN 1190 srem 38884 

1180 POKE B+I,VsI“I+lsGOTO 1170 srem 18907 

1190 SYS 49152 srem 13346 

1200 B“14336 srem 45893 

1210 READ PsIF P=-l THEN 1250 srem 24367 

1220 B2“B+P*8 srem 1995 

1230 FOR Z“0 TO 7sREAD VsPOKE B2+Z,VsNEXT Z srem 14200 
1240 GOTO 1210 srem 19312 
1250 RETURN srem 55778 

1260 DATA 120,165,1,41,251,133,1,169,0,133,251,133,253,169,56 srem 12063 

1270 DATA 133,252,169,208,133,254,162,8,160,0,177,253,145,251 srem 55479 

1280 DATA 200,208,249,230,252,230,254,202,208,240,165,1,9,4 srem 34262 

1290 DATA 133,1,88,96,-1 srem 4326 

1300 DATA 81,0,124,254,254,254,254,124,0 srem 17968 

1310 DATA 102,24,24,24,231,231,24,24,24 srem 20422 

1320 DATA -1 srem 23624 

177 lines, proof number = 34012 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 
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Important Variables in REBOUND 

A Current location of ball 

BC POKE value for a space 

BL POKE value for the ball 

D% Direction of ball 

DE Delay loop variable 

M() Minutes in a game (depends on skill level) 

MAX Maximum number of targets hit so far 


MS() Amount of time 

NT Number of targets hit during the current game 
SK Skill level (1-3) 

T$() Number of seconds added to TI$ for 
time-keeping, indexed by skill level 
TO Value to POKE target on the screen. 

TC Constant for color memory 


How REBOUND Works 

100-120 General setup, then select skill level 
130-180 Set SID up for sound 

190-240 Set screen color, target location and other 
constant variables 

250-280 Draw borders around screen 
290-310 Set ball location and direction of travel 
320-360 Main program loop 

370-380 Move ball, check location to see if anything 
is in the new location 

390-460 Get player's key response and act 

accordingly (quit, place paddle on screen, 
etc.) 

470-500 Compute new ball location 

510-540 Plot ball and continue main program loop 
again 


550-590 Select sound 

600-620 Ball hits a target 

630-700 Ball hits a paddle 

710-790 Final standings 

800-850 Set target location 

860-900 Sound for target hit 

920-1000 Sound for out of time 

1010-1090 Skill level selection 

1100-1130 Time set-up as to skill level 
1150-1320 Setup for programming character set. The 
SYS routine copies the standard 
Commodore character set 




MERGE 


Glen Fisher 


M ERGE is a utility program that lets 
you merge two BASIC programs to¬ 
gether, using the standard Commo¬ 
dore floppy disk. (Note: MERGE can not be 
used with cassette tape.) An obvious time you 
might use MERGE is when typing programs 
from this book. For example, you should have a 
copy of our standard framework (lines 60000 
on) used in all the major programs. Normally, 
we suggest you LOAD the framework before 
typing the program. But let's say you forgot to 
load the framework, and have typed all or some 


r ! I f ." KRVPfQ 
M1PG5: HETH? rsftriEWORK'.v 


large part of a program. To "glue" the two 
pieces together, first make sure you SAVE the 
stuff you’ve just typed. Then load MERGE and 
run it. It will ask for an input file, then a second 
file you want merged, and finally an output file. 
If either of the input files are not on disk it will 
complain, and ask for the name again. It will 
then merge the two files, warning you when the 
same line numbers appear in both files. (It uses 
the line from the first file.) 

Note: MERGE requires a disk. 


1 PG$="MERGE"sAU$="GLEN^FISHER":BG$="RETURN" srem 15511 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 26JUL84 
90 GOTO 62000 :rem 51784 

100 DIM EOF(3):NU$=CHR$(0):LA$=CHR$(1)+CHR$(8) :rem 13442 
110 OPEN 15,8,15:Dl$=”0s"’:D2$="0: ":D3$="0:" srem 18845 
120 PRINT "{down}INPUT^FILE?*";sGOSUB 60000:OF$=IN$:IF IN$="" THEN 
120 :rem 32322 

130 OPEN l,8,2,Dl$+OF$+",P,R" srem 22844 
140 INPUT#15,ER,ER$,TK,SC ;rem 4241 

150 IF EROO THEN PRINT ER$:CLOSE l:GOTO 120 :rem 27795 
160 N b 1sGOSUB 660:IF NM$=LA$ THEN 180 :rem 37049 

170 PRINT OF$? n A ISN 1 T a A a BASIC a PROGRAM.":CLOSE l:GOTO 120 srem 49797 
180 PRINT n {down}MERGE A WITH? A n ;sGOSUB 60000:MF$=IN$:IF IN$= n " THEN 
180 :rem 8480 

190 OPEN 2,8,3,D2$+MF$+",P,R" srem 65224 
200 INPUT#15,ER,ER$,TK,SC srem 7275 

210 IF EROO THEN PRINT ER$:CLOSE 2:GOTO 180 srem 29732 
220 N=2sGOSUB 660sIF NM$ b LA$ THEN 240 srem 44337 

230 PRINT MF$;"aISN'T^AaBASICaPROGRAM.CLOSE 2:GOTO 180 srem 60089 
240 PRINT "(down yelJOUTPUT^FILE?*,"; sGOSUB 60000:NF$=IN$:IF IN$="" THEN 
240 srem 43398 

250 PRINT "{wht}"; sIF NF$OMF$ AND NF$OOF$ THEN 290 srem 58224 

260 PRINT "OUTPUT*FILE a CAN'T a BE a THE a SAME a AS A EITHER n srem 12663 

270 PRINT "INPUT a FILE.^TRY^AGAIN." srem 16720 

280 GOTO 240 srem 10869 

290 OPEN 3,8,4,D3$+NF$+",P,W" srem 20124 

300 INPUT#15,ER,ER$,TK,SC:IF ER=0 THEN 345 srem 12908 
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310 CLOSE 3:PRINT "{2°down)OUTPUT A FILE A ALREADY A EXISTS." srem 56482 

320 PRINT "{down)OK A IF A I A OVERWRITE A IT? A ";sGOSUB 60000 srem 49224 

330 IF LEFTS<IN$,1K>"Y" THEN 240 srem 58828 

340 PRINT#15,"S";D3$;NF$sGOTO 290 :rem 58967 

345 PRINT "{2°down}PRESS A 'Q' A TO A ABORT.{down)" srem 40035 

350 PRINT#3,LA$;sPT=NMsLl=-lsL2=-l srem 42481 

360 IF Ll<0 THEN N=lsGOSUB 600sLl=LNsSl$<=IN$ srem 32036 

370 IF L2<0 THEN N=2sGOSUB 600sL2=LNsS2$=IN$ srem 6891 

380 N»EOF(l)+2*EOF<2)sIF N THEN ON N GOTO 510,510,550 srem 55235 

390 PRINT ■;";sON 2+SGN(Ll-L2) GOTO 400,430,480 srem 37121 

400 REH SAVE SIS srem 36865 

410 PT=PT+LEN(SIS)+2sGOSUB 650 srem 1501 

420 PRINT#3,S1S;sLl=-lsGOTO 360 srem 26104 

430 REM SAVE SI,DROP S2 srem 44545 

440 PRINTsPRINT "{blu)LINE";Ll;"IS A IN A BOTH A FILES." srem 29389 

450 PRINT "COPY A FROM A ";OF$;" a IS a USED.{ wht)" srem 19279 

460 PT»PT+LEN(SIS)+2sGOSUB 650 srem 4340 

470 PRINT#3,S1$;sLl=-lsL2=-lsGOTO 360 srem 46271 

480 REM SAVE S2S srem 57345 

490 PT= PT+LEN(S2$)+2sGOSUB 650 srem 23611 

500 PRINT#3,S2$;sL2=-lsGOTO 360 srem 45445 

510 N=3-NsINS=S1$sIF N=2 THEN IN$=S2$ srem 23281 

520 PT=PT+LEN<INS)+2sGOSUB 650 srem 56972 

530 PRINT sPRINT#3,IN$; srem 6774 

540 GOSUB 600sIF EOF=0 THEN 520 srem 5291 

550 PRINT#3,NU$;NU$; srem 58902 

560 CLOSE 3sCLOSE 2sCLOSE 1 srem 34858 

570 PRINTsPRINT "{down blu)THE A TOO A PROGRAMS a HAVE a BEEN A MERGED." srem 20984 

580 PRINTsPRINT "{wht)PRESS A ANY A KEY A TO A QUIT." srem 44951 

590 GET XSsIF X$="" THEN 590 srem 22634 

595 GOTO 60600 srem 49293 

600 GOSUB 700sGOSUB 700 srem 13667 

610 GOSUB 700sT$=C$sGOSUB 700 srem 59963 

620 IN$=T$+C$sLN=ASC(T$)+256*ASC(C$) srem 18138 

630 GOSUB 700sIN$=INS+CSsIF CSONUS THEN 630 srem 4486 

640 RETURN srem 37638 

650 C=INT(PT/256)sPRINT#3,CHR$(PT-256*C);CHR$(C);sRETURN srem 40438 
660 GOSUB 700sIF EOF THEN NM=-1sNM$=""sRETURN srem 46531 
670 NM$ s C$sGOSUB 700 srem 6528 

680 NM^ASC(NM$)+ASC(CS)*256sNM$=NM$+C$ srem 38152 
690 RETURN srem 34071 

700 GET Z$sIF Z$="Q" THEN 730 srem 19865 
705 EOF=EOF(N)sIF EOF=0 THEN GET#N,C$sIF ST THEN EOF=ls 
EOF(N)=EOF srem 55002 

710 IF EOF OR C$= n " THEN C$=NU$ srem 46822 
720 RETURN srem 51699 

730 PRINTsPRINT "{down wht)MERGE A ABORTEDs"sCLOSE 3sCLOSE 2s 
CLOSE 1 srem 17128 
740 PRINT#15,"S";D3$;NF$ srem 5923 
750 PRINT "{blu)OUTPUT A FILE A SCRATCHED." srem 39617 
760 GOTO 580 srem 35624 


126 lines, proof number s 52078 
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Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in MERGE 

C$ Character string input from disk 
Dl$ Drive number of first input file 
D2$ Drive number of secona input file 
D3$ Drive number of output file 
EOF End-of-file flag 
EOF0 End-of-file flag for each file 
ER Error number from disk drive 

ER$ Error message from disk drive 
LI Current line number from first file 
L2 Current line number from second file 
LA$ Load address for BASIC programs 


LN Current line number 

MF$ Second file name 

N Number of current file 

NF$ New file name 

NM Load address of current disk file 

OF$ First file name 

PT Pointer to next line of output file 

Sl$ Current line of input for first file 

S2$ Current line of input for second file 

SC Sector of error from disk drive 

ST Status variable 


How MERGE Works 

100-110 Initialize variables and open disk 
error/command channel 

120-230 Input names of the two files to be merged 

and open them for reading 

240-350 Input name of new output file and open for 
writing 

360-390 Main loop: get line numbers and line of 
input from each source file 

400-420 Save line of input from first source file to 
new output file 

430-470 Line numbers from source files are the 
same: notify user and save line of input 
from the first source file 


480-500 Save line of input from second source file to 
new output file 

510-540 One of the source files has ended: continue 
input from the other 

550-595 Merge complete: close all disk files 
600-640 Read a line of input from disk file 
650 Write pointer to output disk file 

660-690 Get load address from a disk file 
700-720 Read a single byte from a disk file 
730-760 Merge aborted. Scratch output file 






George MacRae 


M ATCH is a moderately difficult math 
game for up to four players that also 
tests your memory. A game grid of 24 
squares is displayed, with a number hidden 
behind each square. Each player must uncover 
two squares that add up to the amount MATCH 
requires, which is different each game. You use 



the keyboard to specify the squares you want to 
uncover. Since the letter Q is used for one of the 
squares, press the space bar when you want to 
quit the game. If you like, the C-64 will play 
against you. But watch, out: the computer is a 
pretty mean competitor. However, it doesn’t 
cheat. (Well, at least we don't think it cheats...) 


1 PG$="MATCH"sAU$="GEORGE*MACRAE"sBG$="RETURN" srem 9253 

3 s 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BQX 6905/ SANTA BARBARA, CA 93160 

6 : 

10 REM AS OP 25JUL84 
90 GOTO 62000 :rem 51784 
100 DIM B«(24),M%(24),G(2) :rem 22559 

105 P$= n tup 5°space down 5°left}"sP2$="{5°space down 5°left}" srem 35465 

110 BL$="{26“space}" srem 30983 

120 G(0)=0sLD$="{5“left down}" srem 50037 

130 PRINT "HOW*MANY^PLAYERS^(l-4)? A ";sGOSUB 60000 srem 2106 

135 IF IN$="Q" THEN 60600 srem 12674 

140 PL=VAL (IN $) s IF IN$ ss "" THEN PL=1 srem 29989 

150 IF PL>4 OR PL<1 THEN PRINTsGOTO 130 srem 55095 

160 FOR 1=1 TO PL srem 54140 

170 PRINT "{down}WHO'S^PLAYER";I;"{left}?*";sGOSUB 60000 srem 14504 
180 IF LEN(IN$)>8 THEN PRINT "(downJEIGHT^LETTERS^OR^LESS,^PLEASE"s 
GOTO 170 srem 43639 

190 IF IN$=“" THEN PRINT "{down}I^NEED^A^NAME^FOR^THE^SCOREBOARD."s 
GOTO 170 srem 21059 
200 N$(I) =IN$sNEXT I srem 56388 
210 IF PL>3 THEN 270 srem 49579 

220 PRINT "{down}CAN*I*PLAY*TOO?,*"; sGOSUB 60000 srem 50213 

225 T$=LEFT$(IN$,1) srem 62815 

230 IF T$<>"Y" AND T$<>"" THEN 270 srem 56127 

240 PL=PL+lsN$(PL)="C64" srem 58644 

250 PRINT "{down}HOW A HARD^SHALL A I^CONCENTRATE^(1-9)? A ";sGOSUB 60000s 
CO=VAL(IN$) srem 60756 
255 IF IN$="" THEN CO=4 srem 62919 
260 IF C0<1 OR CO>9 THEN PRINTsGOTO 250 srem 22214 
270 M=0sM2 s 0sTH=INT(RND(l)*50+50) srem 4127 
275 POKE VIC+32,12sPOKE VIC+33,1 srem 49390 
280 A$="{Q 5“* + 5“* + 5°* + 5°* + 5°* + 5°* W}" srem 50275 
290 B$="{- 5°space - 5°space - 5“space - 5°space - 5°space - 5°space -}" 
srem 8865 
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300 PRINT "{clr cyn A 5°* R 5°* R 5°* R 5°* R 5°* R 5°* S>" srem 1471 
310 FOR 1=1 TO 4:IF I>1 THEN PRINT A$ srem 13474 
320 FOR J=1 TO 3SPRINT B$sNEXT J,I srem 16809 

330 PRINT "(Z 5°* E 5°* E 5°* E 5°* E 5°* E 5°* X home)" srem 11965 

335 PRINT "{red}" srem 14131 

340 Q$="(home 24°down}" srem 28470 

350 FOR 1=1 TO 4sPRINT LEFTS(Q$,4*1-2);"(right}"; srem 32923 

360 FOR J=0 TO 5sPRINT "(rvs-on 5°space>" LD$ " AA "?CHR$(I*6+J+59) " AA " 

LD$ "(5°space 2°up right}"? srem 5150 
370 NEXT JsPRINTsNEXT I srem 29697 

375 PRINT LEFTS(Q$,19);"{blk}SETTING*UP..." srem 18236 
380 FOR 1=1 TO 12sC=INT(RND(1)*(TH-1)+1) srem 52552 
390 GOSUB 860sC=TH-CsGOSUB 860 srem 12231 
400 NEXT srem 33339 
405 PRINT "{blu}"? srem 13472 
410 GOTO 450 srem 31715 
420 M%(I)=B%(I) srem 10923 
423 IF B%(I)<1 THEN RETURN srem 36687 
425 GOSUB 880sPRINT P$;P2S?P2$sGOSUB 880 srem 37808 
430 PRINT "(blk) A "?STR$(B%(I));"(blu}"? sRETURN srem 41086 
440 GOSUB 880sPRINT "(rvs-on red}"?P$;" AA "?CHR$(1+64)?" AA (down 5°left}"; 
srem 59794 

445 PRINT P2S;"(rvs-off blu}"?sRETURN srem 14430 
450 PRINT LEFT$(Q$,18)TAB(16)?"(D 8°I F}" srem 53867 

460 PRINT TAB(16);"(rvs-on K)NUMBERS A {rvs-off K}"sPRINT TAB(16)?"(rvs-on 
K}MUST a ADD( rvs-off K}" srem 9952 

470 PRINT TAB(16)?"(rvs-on K}UP A TO A "?MID$(STR$(TH)+" A ",2,2)?"(rvs-off K}" 
srem 10136 

480 PRINT TAB(16);"(C rvs-on 8°I rvs-off V}" srem 28612 
490 B$="(8°*}" srem 10306 

500 PRINT LEFT$(Q$,18);TAB(26)?"(A)"?B$?"(3°* S)" srem 20322 
510 PRINT TAB(26 )?"{-}SCORE a BOARD(-}" sPRINT TAB(26)?"(Q)"?B$?"(R 2°* W}" 
srem 23580 

520 FOR 1=1 TO 4sPRINT TAB(26);"(- 8°space -} AA (-}"sNEXT I srem 17031 
530 PRINT TAB(26);"(Z}"?B$?"(E 2°* X home}" srem 17461 
540 PRINT LEFT$(Q$,21); srem 11396 

550 FOR 1=1 TO PL sPRINT TAB(27);N$(I)sNEXT I srem 23031 
560 FOR K=1 TO PL srem 10710 

570 PRINT LEFT$(Q$rl7)sFOR 1=1 TO 6sPRINT LEFT$(BL$,13)sNEXT srem 40246 
575 PRINT LEFT$(Q$,25);"** A PRESS A (rvs-on}SPACE(rvs-off1 A TO A QUIT A **"; 
srem 54672 

580 PRINT LEFT$(Q$,18)N$(K) " 1 SATURN";LEFT$(BL$,9-LEN(N$(K))) srem 34706 
590 FOR G=1 TO 2 srem 26542 

600 PRINT LEFT$(Q$,18+2*G) "GUESS A #"?MID$(STR$(G),2)?" A - A "; srem 11968 
610 IF N$(K)="C64" THEN CM G GOSUB 1000,1050sGOTO 650 srem 49866 
620 GOSUB UlOsIF IN$=" A " THEN 60600 srem 53056 
625 G(G)=ASC(IN $)-6 4 srem 11649 

630 IF G(G)<1 OR G(G)>24 OR G(G)=G(G-1) THEN 600 srem 35556 
640 IF B%(G(G))<0 THEN 600 srem 34745 
650 I=G(G)sGOSUB 420 srem 39363 
660 NEXT G srem 30250 

670 IF B%(G(1))+B%(G(2))=TH THEN M=M+lsGOSUB 890sGOTO 700 srem 48500 

680 FOR 1=1 TO 2500sNEXT srem 6613 

690 FOR G=1 TO 2sI=G(G)sGOSUB 440sNEXT G srem 39702 
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700 REM IFS(K+l)>6THENM=0sGOTO740 srem 48130 

701 IF S(K+1)>M2 THEN M2=S(K+1) :rem 59757 
710 IF M=12 THEN 740 srem 40072 

720 NEXT K srem 46894 
730 GOTO 560 srem 24334 

740 PRINT LEFTS(Q$,17)sFOR 1=1 TO 7sPRINT BLSsNEXT I srem 56975 

750 NW=0sFOR 1=1 TO PLsIF S(I)=M2 THEN NW=NW+lsK=I srem 717 

755 NEXT IsIF NW=1 THEN 790 stem 38628 

760 PRINT "{7°up 5°space rvs-on)TIE A GAME" srem 11970 

770 PRINT " AA CONGRATULATIONS{down)"sFOR 1=1 TO PL srem 24115 

775 IF S(I)=M2 THEN PRINT TNS(I);"{4°space}"; srem 3541 

780 NEXTsPRINT "{2°up} n ;sGOTO 800 srem 13404 

790 PRINT “{4°up) AA " N$(K) " A WINSIli n srem 5621 

800 FOR 1=1 TO 2000sNEXT srem 46660 

810 PRINT "{2°down)WANT A ANOTHER A GAME? A ";sGOSUB 1110 srem 10175 

820 IF IN$="N" OR IN$=" A " THEN 60600 srem 44314 

830 FOR 1=1 TO 24sB%(I)=0 sM%(I)=0 sNEXT I srem 17232 

840 FOR 1=1 TO PL s S (I) =0 s NEXT I srem 22119 

850 GOTO 270 srem 16674 

860 A=INT(RND(1)*24+1)sIF B%(A)<>0 THEN 860 srem 2056 
870 B%(A)=CsRETURN srem 37246 

880 J=INT((I-l)/6)SPRINT LEFTS (Q$ ,4*J+3)TAB(6*(I-6*J)-5);s 
RETURN srem 32136 

890 PRINT LEFTS(Q$ f 19+K) srem 4299 
900 FOR 1=1 TO 60 srem 54480 

910 PRINT TAB(27);"(rvs-on)";N$(K);"{up}" srem 60265 

920 PRINT TAB(27);N$(K);"(up)" srem 30182 

930 NEXT IsS(K)=S(K)+l srem 37468 

940 FOR G=1 TO 2sB%(G(G))=-lsI=G(G) srem 50273 

950 GOSUB 880sPRINT "(up 5°space)" LDS "{5 0 space)" LDS "{5°space)"s 
M%(G(G))=-l srem 48746 
960 NEXT G srem 42096 

970 PRINT LEFTS(QS,20+K)TAB(36)RIGHTS(STRS(S(K)),2) srem 28794 
980 K=K-1sRETURN srem 40770 
1000 X=0 sY=0 sFOR J=1 TO 23 srem 55458 

1010 FOR I=J+1 TO 24s IF M%(J)+M%(I)=TH THEN X=JsY=IsGOTO 1040 srem 24849 
1020 NEXT I,J srem 370 

1030 X=INT(RND(1)*24)+1sIF M%(X)<>0 THEN 1030 srem 40097 
1040 G(l)=XsPRINT CHRS(X+64)sRETURN srem 47452 

1050 FOR J=1 TO 2000sNEXTsIF INT(RND(1)*9+1)>CO THEN 1090 srem 7348 
1060 IF YOO THEN I=YsGOTO 1100 srem 8050 

1070 FOR 1=1 TO 24 s IF M% (G( 1))+M% (I) =TH AND G(l)OI THEN 1100 srem 33686 
1080 NEXT I srem 20209 

1090 I=INT(RND(1)*24+1)sIF M%(I)<0 OR G(1)=I THEN 1090 srem 24655 
1100 G(2)=IsPRINT CHRS(1+64)sRETURN srem 33212 
1110 ZT=TIsZC=2 srem 8227 

1120 GET INSsIF IN$O n " THEN 1150 srem 60573 
1130 IF TI>ZT THEN PRINT MIDS(■ A ?",ZC,1);"(left)";sZC=3-ZCs 
ZT=TI+15 srem 54443 
1140 GOTO 1120 srem 55644 
1150 PRINT " A {left) n ; srem 59326 

1160 IF (INS>=" A n AND IN$<"< n ) OR (INS>=CHRS(160) AND IN$<="{*}") THEN 
PRINT INS; srem 58537 
1170 PRINTsRETURN srem 62083 

179 lines, proof number = 15942 
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Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in MATCH 

A Temporary holder of a random number 
B%() Holds random values in grid matrix 
BL$ String of 26 blanks 

C Used to generate random number matrix to 
assign B% () 

CO C-64's playing level 

G Loop variable for number of players 

G() Guesses: G(l) first guess, G(2) second guess 
K Loop variable for player's turn 


M Number of matches in current game 
N$0 Players' names 

PL Number of players 

Q$ String to move cursor to last line on screen 
s() Score for each player 

TH Target number 

X Used for C-64's guess 

Y Used for C-64's guess 


How MATCH Works 

100-270 Set up number of players, their names, and 

play level of C-64 
275-410 Print playing board 

420-430 Display a value of a selected box 

440-445 Restore label of box selected (from above) 

450-550 Print target number and current standings 
for players 

560-730 Main program loop, input players' selection 

740-820 Final standings, play again 

830-850 Clear arrays 


860-870 

Set a value to one position in the board 
matrix 

880 

Move cursor to selected box on the screen 

890-980 

Player made a match. Flash name, 
increment score, and remove marked 
selected items 

1000-1040 

C-64's first guess 

1050-1100 

C-64's second guess 

1110-1170 

Input routine 






ATTACK 

Pany Gripp 


I n ATTACK, you are the sole defender of a 
treasure hidden inside the walls of a castle. 
Wave after wave of attackers attempts to 
get the treasure, which is protected by a sophis¬ 
ticated alarm system. The first two intruders 
who are able to reach the treasure cause the 
alarm to sound, which reduces the number of 
shields by one. After the treasure has been 
reached by an attacker three times, the alarm 
system will auto-destruct the treasure the next 
time it is touched. You move by using the joy¬ 
stick, and fire your weapon by pressing the joy¬ 
stick button. (You fire in the direction you are 
moving.) The attackers chip away at the castle 
walls, trying to make it easier to enter and get 
at the treasure. You can strengthen the walls 
they weaken, but once they chip all the way 
through, it isn't possible to rebuild that section 
of wall. You strengthen walls by moving di¬ 
rectly into the damaged section. 

Should an attacker confront you, he sac¬ 
rifices himself, knowing full well that his heroic 


act will be avenged by two new warriors who 
will rush into battle. Just when you've suc¬ 
ceeded in eliminating one wave of attackers, 
there is a brief respite (rebuild those weakened 
walls) and then yet another new wave attacks 
your castle. 

ATTACK is a game that grows on you. At first 
you may find it frustratingly difficult. But as 
you develop skill, and learn the tactics of the 
game you may find yourself wearing out a joy¬ 
stick or two. A hint to help you get started: note 
that the corners of the castle are weak, and the 
attackers tend to try to come in by that route. 
By staying inside the castle in a corner, you are 
able to destroy the enemy as they enter. When 
you see attacks coming from two corners at the 
same time, it’s best to move inside the inner 
(green) sanctum, so you have only a short dis¬ 
tance to move to protect any of the four corners. 
However, as the attackers break through the 
walls, your life becomes much more difficult. 


1 PG$ ss "ATTACK":AU$="PARRY/sGRIPP":BG$ = "JOYSTICK/'BUTTON" :rem 57318 

3 j 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 :rem 51784 
100 FOR Z=1 TO 100:NEXT Z :rem 26006 

105 SK$(1)="EASY":SK$(2)“"MEDIUM":SK$(3)“"HARD" :rem 8140 
110 IN=2:JM=3:JT=12:JW=7 :rem 6253 

120 PR$="SKILL.LEVEL!^^EASY^^MEDIUM^^HARD":GOSUB 60200:SK=IN :rem 44130 
130 :BK=2t(3-SK)-1:FD=(4-SK)*5+2:LF=3:LK=LF:DE=BK*8:LA=BK*40: 

RT=l+(3-SK)*10 :rem 349 
140 DIM C(16),W(22),X(10),Y(10) :rem 65245 

150 W( 0)=15:W(1) =11 :W(2)=7:W(4)=3 sW(7)=2 sW(12)=10:W(17)=6:W(18)= 5 : 

W(19)=1 :rem 61993 

160 W(20)=14:W(21)=13:W(22)=9 :rem 42631 

170 POKE SID,0:POKE SID+1,0:PG=SID+1:POKE SID+5,68: 

POKE SID+6,68 :rem 28525 

180 POKE SID+12,60:POKE SID+13,60:POKE SID+7,246sPOKE SID+8,2 :rem 59829 
190 POKE SID+2,0:POKE SID+3,8sPOKE SID+24,15:POKE SID+4,65 :rem 54296 
122 
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200 HS=-9sHW=0 srem 29104 

210 FOR J=1 TO 16:READ C(J)sNEXT J srem 58162 

220 DATA 118,106,103,32,117,116,101,32,121,111*100,32,120,119,99,32 
srem 612 

230 I=0sSC=0:AI=9:TX=20:TY=13sIS=20 srem 8718 

240 FOR 1=0 TO AIsX(I)=0$Y(I)=0sNEXT IsPRINT "{clr>"sGOSUB 250s 
GOTO 290 srem 46131 

250 BL$= n {39°space left inst}*{left}” srem 24882 

260 PRINT "{clr}";sFOR 1=0 TO 23sPRINT BL$sNEXTsPRINT BL$;"thome}" 
srem 14527 

270 FOR 1=0 TO WDsPOKE CRT+I+WD,96sPOKE CRT+24*WD+I,96sNEXT I srem 24932 
280 FOR I=WD*2 TO WD*24 STEP WDsPOKE CRT+I,96sPOKE CRT+WD+I-1,96sNEXT Is 
RETURN srem 63861 

290 PRINT "(home 12°down)" SPC(19) "{red NPM>" CR$SPC(19) "{MLN}" 
srem 14776 

300 GOSUB 1160 srem 43718 

310 X=20sY=14sD=CRT+X+Y*WDsO=0 srem 39306 

320 GOSUB 330sGOTO 410 srem 37571 

330 FOR G=0 TO AIsEX(G)=INT(RND(1)*3)-1sGOSUB 660sPOKE PG,0 srem 33956 
340 A=INT(RND(1)*4) srem 25242 

350 IF A-0 THEN X(G)=INT(RND(1)*(32-2*0))+4sY(G)=INT(RND(1)*0)+1 
srem 25076 

360 IF A=1 THEN X(G)»INT(RND(1)*(32-2*0))+0+4sY(G)»24-INT(RND(l)*0) 
srem 37932 

370 IF A«2 THEN X (G) =INT(RND (1) *0)+4 sY (G) =INT(RND(1) * (22-0*2))+0+1 
srem 46871 

380 IF A-3 THEN X(G) =36-INT(RND(l) *0) ;Y(G) =INT(RND(1) * (22-0*2)) +0+1 
srem 54422 

390 A=PEEK(CRT+X(G)+Y(G)*WD)sIF A<>32 AND A<>96 THEN 340 srem 20297 
400 NEXT GsRETURN srem 36600 
410 POKE D,86 srem 63465 

420 WV-1 srem 2205 

430 POKE PG,0sGOSUB 660sPOKE PG,0sIF AI>-1 THEN 470 srem 38943 
440 POKE PG,0sFOR U-l TO RTsGOSUB 66OsPOKE PG,0 srem 41411 
450 FOR E-l TO 40sNEXT EsNEXT UsIS-IS+15 srem 7203 
460 AI-9sWV-WV+lsGOSUB 270sPRINT "{home blu 5°right)";WVsGOSUB 330s 
IF 0<6 THEN 0=WV srem 52151 

470 FOR U=AI*DE TO LAsNEXT UsFOR A-0 TO AIsPOKE PG,0 srem 1885 

480 GOSUB 660sPOKE PG,0sIF A>AI THEN 430 srem 48010 

490 DX-SGN(TX-X(A))sDY=SGN(TY-Y(A))sX2=X(A)+DXsY2=Y(A)+DY s 
Cl-CRT+X(A)+Y(A)*WD srem 61507 
500 C-Cl+DX+DY*WDsB-PEEK(C) srem 64787 
510 IF B-32 THEN 640 srem 45386 
520 IF B<99 OR B>121 THEN 600 srem 1175 
530 J=W(B-99)sIF J>8 THEN 560 srem 58488 

540 X2-X(A)sY2=Y(A)+SGN(Y(A)-TY)sIF Y2-TY THEN Y2=Y(A)+1 srem 50228 
550 GOTO 570 srem 36465 

560 Y2-Y(A)sX2=X(A)+SGN(X(A)-TX)sIF X2-TX THEN X2-X(A)+INT(2*RND(1))*2-1 
srem 29183 

570 EX(A)=EX(A)+1sIF EX(A)>BK THEN POKE C,C(J+1)sPOKE PG,150s 
EX(A)=0 srem 31778 
580 C-CRT+X2+Y2*WD srem 40556 
590 B-PEEK(C)sIF B-32 THEN 640 srem 20517 

600 IF B>75 AND B<81 THEN POKE Cl,32sPOKE PG,50sGOTO 1380 srem 18439 
610 IF B<>86 THEN 650 srem 19867 
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620 FOR B=1 TO 20sPOKE Cl,42:POKE PG,50sGET IN$sPOKE Cl,90sPOKE PG.Ot 
NEXT B srem 10587 

630 POKE Cl,3 2 sU=AtGOSUB 1300:SC=SC-ISsGOSUB 1490sGOTO 650 srem 2214 

640 X(A)=X2s Y(A)=Y2sPOKE Cl,32sPOKE C,90 srem 45639 

650 POKE PG,70sNEXT AsGOTO 430 srem 53616 

660 DX=0sDY»0 srem 25133 

670 GOSUB 60500 srem 51820 

680 I=(PEEK(JS) AND 15)sIF 1=15 THEN RETURN srem 4228 
690 IF 1=7 THEN DX=1 sDY=0sDP=lsGOTO 780 srem 31479 
700 IF 1-11 THEN DX=-1sDY=0sDP=-lsGOTO 780 srem 52635 
710 IF 1=14 THEN DX=0sDY=-lsDP=-WDsGOTO 780 srem 36815 
720 IF 1=13 THEN DX=0sDY»lsDP=WDsGOTO 780 srem 22503 
730 IF 1=9 THEN DX=-1sDY=lsDP=WD-lsGOTO 780 srem 41675 
740 IF 1=5 THEN DX=1sDY=lsDP=WD+lsGOTO 780 srem 57316 
750 IF 1=6 THEN DX=1sDY=-lsDP=l-WDsGOTO 780 srem 47047 
760 IF 1=10 THEN DX=-1 sDY=-lsDP—WD-lsGOTO 780 srem 15401 
770 RETURN srem 9164 

780 IF (PEEK(JS) AND 16)=0 THEN 870 srem 53194 
790 S=DsD=D+DP srem 55312 

800 IF PEEK(D)=32 THEN X=X+DXsY»Y+DYsPOKE D,86sPOKE S,32sRETURN srem 16890 

810 FOR J=2 TO 3sIF PEEK(D)=C(J) THEN POKE D,C(J-1)sGOTO 860 srem 38157 

820 IF PEEK(D)=C(J+4) THEN POKE D,C(J+3)sGOTO 860 srem 65451 

830 IF PEEK(D)=C(J+8) THEN POKE D,C(J+7)sGOTO 860 srem 19366 

840 IF PEEK(D)=C(J+12) THEN POKE D,C(J+11)sGOTO 860 srem 56870 

850 NEXT J srem 56052 

860 D=SsRETURN srem 60639 

870 P=XsQ»YsN=D srem 54377 

880 FOR U=1 TO FDsP=P+DXsQ=Q+DYsN«N+DPsPOKE PG,128-U srem 43624 
890 PI=32:IF U=1 THEN PI=86 srem 15344 
900 IF PEEK(N)=32 THEN 940 srem 28897 

910 IF PEEK(N)=90 THEN POKE N-DP,PIsGOTO 970 srem 9314 

920 SC=SC-5sGOSUB 1490 srem 50567 

930 POKE N-DP,PIsU=10sRETURN srem 3192 

940 POKE N r 43sPOKE N-DP,PI srem 21762 

950 NEXT UsIF U-1=FD THEN SC=SC-5sGOSUB 1490 srem 3370 

960 POKE N,32sRETURN srem 47763 

970 POKE PG, 0 sPOKE SID+11,129 srem 12398 

980 Z=0sFOR U=0 TO AIsIF Z=1 THEN X(U-l)=X(U)sY(U-l)=Y(U)s 
GOTO 1000 srem 6790 

990 IF X(U)=P AND Y(U)=Q THEN Z=1 srem 25693 
1000 NEXT U sX(AI)=0sAI=AI-lsA=A+lsPOKE SlD+11,128 srem 14926 
1010 FOR E=1 TO 3 srem 21457 

1020 POKE N+WD,PEEK(N+WD)+128sPOKE N-WD,PEEK(N-WD)+128s 
POKE N-l, PEEK(N-l)+128 srem 38256 
1030 POKE N+l,PEEK(N+l)+128sPOKE N+WD,PEEK(N+WD)-128s 
POKE N-WD,PEEK(N-WD)-128 srem 39681 
1040 POKE N+l,PEEK(N+l)-128sPOKE N-l,PEEK(N-l)-128sNEXT E srem 1084 
1050 POKE N-(DX+DY*WD),PIsPOKE N,32sSC=SC+ISsGOSUB 1490sRETURN srem 15282 
1060 POKE PG,0sFOR Y=0 TO 250sNEXT YSPRINT "(clr 4°down>" srem 29170 
1070 POKE PG,0 srem 60136 
1080 CO=CO+l srem 21075 

1090 IF SC>HS THEN HS=SCsHW=WVsIF CO>l THEN PRINT "(home 2°down rvs-on) 

NEW.HIGH.SCOREHhome 2°down}" srem 3 0084 
1100 PRINT "(down blulSCOREs(wht)";SC;"{ blu ).AT.THE.{wht>" ?SK$(SK) ?".( blu ) 
SKILL.LEVEL." srem 55251 
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1110 S$="S.":IP HW=1 THEN S$="." :rem 49719 

1120 PRINT "{downJHIGH^SCORE^IS*(wht)";HS;"(blu)*.IN";HW;"^WAVE" S$; 

PRINT :rein 17141 

1130 IN=1 sPR$="PLAY*AGAIN?**YES A<s NO" : JT=13 : JW=5 sGOSUB 60200 srem 33332 

1140 IF IN=2 THEN 60600 :rem 11195 

1150 POKE SID+4,65 sAI=0 sGOTO 230 :rem 41615 

1160 PRINT "{home blu)WAVE: A l(5°space)SCOREs A 0(7°space)SHIELD:" LF-1: 

XZ$="(16"right)" srem 12323 

1170 PRINT "{home 10°down)" XZ$;"(right grn O right O right O right O)" 
srem 58826 

1180 FOR 1=1 TO 4SPRINT XZ$;"(L 7°right J)":NEXT I srem 55788 

1190 PRINT XZ$;"(right U right U right U right U)" srem 59970 

1200 PRINT "(home 8°down)";SPC(14);"(right yel 11°0)" srem 4163 

1210 FOR 1=1 TO 4 SPRINT SPC(14);"(L)"sPRINT SPC(26);"(J)"sNEXT I srem 31901 

1220 PRINT SPC(15)?"(11°U)" srem 51184 

1230 PRINT "(home 5°down)" srem 17871 

1240 PRINT SPC(13)?"(blu 15°0)" srem 18534 

1250 FOR 1=1 TO 12 srem 2476 

1260 PRINT SPC(12);"(L)";SPC(15);"(J)" srem 56982 

1270 NEXT I srem 31658 

1280 PRINT SPC(13);"(15°U)" srem 3086 

1290 RETURN srem 42180 

1300 EX(U) =INT(RND(1) *3) -1 srem 54552 

1310 I=INT(RND(1)*4) srem 41144 

1320 IF 1=0 THEN X(U) =INT(RND(1) * (32-2*0))+4 sY (U) =INT(RND(1) *0)+1 
srem 64873 

1330 IF 1=1 THEN X(U)=INT(RND(1)*(32-2*0))+0+4sY(U)=24-INT(RND(l)*0) 
srem 19286 

1340 IF 1=2 THEN X(U) =INT(RND(1) *0) +4sY (U) =INT(RND(1) * (22-0*2)) +0+1 
srem 37522 

1350 IF 1=3 THEN X(U)»36-INT(RND(l)*0)sY(U)=INT(RND(1)*(22-0*2))+0+1 
srem 4731 

1360 IF U=A AND AI<10 THEN AI=AI+1sU=AIsGOTO 1300 srem 30692 
1370 RETURN srem 65073 

1380 LK=LK-1:IF LK=0 THEN LK=LFsGOTO 1450 srem 16948 
1390 PRINT "(home 12°downJ" XZ$ "(red 3°right rvs-on £) A (*)"s 
PRINT XZ$ "(3°right * rvs-on) A (rvs-off £)" srem 56458 
1400 FOR U=1 TO 200sNEXT U srem 17155 

1410 PRINT "(home 12°down)" XZ$ "(3°right NPM) n sPRINT XZ$ "(3°right MLN)" 
srem 63308 

1420 PRINT "(home blu)" SPC(34);LK-1|sIF LK=1 THEN PRINT "(10°left rvs-on) 
NO a SHIELDS 1" srem 13957 

1430 FOR U=A+1 TO AIsX(U-l)=X(U)sY(U-l)=Y(U)sNEXT U srem 443 
1440 X(AI)=0sAI=AI-lsA=A+lsGOTO 650 srem 28936 
1450 PRINT "(home ll°down 18°right 2°M - 2°N)"j srem 26278 
1460 PRINT "(down 5°left 2°M V 2°N down 5°left 2°N V 2°M down 5°left 2°N - 
2°M)" srem 9688 

1470 FOR Z=1 TO 115sPOKE SID+4,65sPOKE PG,255sPOKE PG,200s 
POKE SID+4,64 srem 37730 
1480 NEXT ZsGOTO 1060 srem 47006 
1490 IF SC<0 THEN SC=0 srem 21319 

1500 PRINT "(home)"|XZ$;"(2°right 4°space blu 4°left)";SCsRETURN srem 29962 


198 lines, proof number = 50391 
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Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in ATTACK 

AI Number of attackers 

BK Rate the enemy breaks through the walls 
C() Screen POKEs for the base walls 

CO Number of games played 

DE Starting value of delay loop 

EX() Strength of each enemy 

FD Maximum firing distance for the defender 
HS Current high score 

HW Wave when the highest score was attained 
IS Point value for an enemy 

LA Ending value for delay loop 

LF Starting strength of shields 

LK Number of shields 


O Starting distance of enemy from edge of screen 
PG Address of SID register to control pitch 
RT Rate you move based on skill level 
SC Current score 

SK Skill level 

TX X-coordinates of the base 

TY Y-coordinates of the base 

WV Current attack wave 
X X-coordinate of defender 
X() X-coordinates for enemy 

Y Y-coordinates of defender 

Y() Y-coordinates for enemy 


How ATTACK Works 


100-120 

130-220 

230-420 

430-650 

660-860 


Input skill level 

Initialize variables and arrays 

Set up screen and select starting position 

for attackers 

Main loop: move attackers toward the base 
and break through walls 
Read joystick, move defender, and patch 
walls 


870-960 

970-1050 

1060-1150 

1160-1290 

1300-1370 

1380-1440 

1450-1480 

1490-1500 


Fire a shot 
Blow up an enemy 

Display high score, ask for another game 
Draw walls around base 
Randomly position a new attacker 
Decrement shield strength 
Shields gone, blow up base 
Display score 






Randall Lockwood 


W OLF is a realistic role-playing text 
adventure. Unlike most adventure 
games, it is designed to be played 
cooperatively by up to five people at once and it 
is based on actual events that take place in the 
lives of real creatures. The objective is to have 
the wolf pack survive for an entire year and 
successfully raise a litter of pups. This will re¬ 
quire caution, cooperation, and persistence. 
Players take turns making decisions for a 
specific wolf in the pack and enter their desired 
action using simple one- or two-word com¬ 
mands such as HOWL, CHASE DEER, AVOID 
HUMAN, GO EAST. If nothing seems to be hap¬ 
pening in the game, the best strategy is to keep 
moving to an area where prey might be found 
by using GO, e.g., GO WEST. Typing HELP will 
display a list of the words that are understood 
by the program. 

In WOLF, players learn about wolf habitats, 
predator-prey relationships, and social in¬ 
teractions. Perhaps most important is the fact 
that this is a cooperative game in which bad 
decisions by one player can eliminate him or 
her from the game or even endanger the entire 
group. 



The universe for WOLF is a 10x 15 grid, repre¬ 
senting about 150 square miles. Players begin 
approximately in the center of the map. The 
universe of WOLF includes diverse habitats. As 
the players move they randomly encounter 
prey, competitors, and dangers, within limits 
determined by the nature of the habitat. The 
program keeps track of many variables, includ¬ 
ing the health, location, hunger, and social 
status of each animal. The outcome of encoun¬ 
ters with others is determined by these vari¬ 
ables, as well as by the number of wolves pre¬ 
sent and their alliances. Wolves that play or 
otherwise stay together hunt more efficiently. 
Wolves that fight may rise in status, but they 
also may be more likely to be left alone, lower¬ 
ing their hunting success. Most encounters 
with prey end in failure (as in real life). 

If pups are to survive, a den must be built in 
the right place and at the right time (the pro¬ 
gram gives some hints). After they are born they 
must be fed, usually by several players, if they 
are to survive to the end of the year. Silly or 
overly aggressive moves can easily result in the 
death of a wolf and subsequent failure of the 
group. 


1 PG $="WOLF":AU$="RANDALL^.LOCKWOOD":BG$="RETURN" :rem 20130 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 04AUG84 
90 GOTO 62000 srem 51784 

100 PRINT CHR$(14);"(clr wht SE 2°T ING)„(UP)..." :rem 41479 
120 C $="WHITEBLACKGREY„TAN„*":GG $=" „{Y}OU ^GOT«ITi„": 

DEF FNR(X)=INT(RND(TI)*X) srem 8762 
125 DIM PO(13,4),PP(13,4),OB%(150,3) :rem 22795 
130 DIM B(5,5),V$(35),N$(55),T«(10,15) srem 28885 
135 DIM D$(13),L%(5),H( 5), Y$ (5),RP$(5),MO$(12) srem 63803 
140 T=0sFOR 1=1 TO 5:L%(I)=81:H(I)=100:FOR J=1 TO 5:B(I,J)=100: 

NEXT J,I srem 45788 

150 RP$ (1) ="{Y)OU.SEE a ORJ3MELL.-"sRP$( 2)="{I}N.THIS.AREA.YOU.DETECT,.-" 
srem 63582 
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160 RP$(3)="{N)EARBY a YOU a SEE a -":RP$(4)= "(L)OOKING a AROUND, A YOU A FIND 
:rem 7142 

170 RP$(5)="{H>ERE a YOU a COME a ACROSS a -":FOR 1=1 TO 12:READ MO$(I): 

NEXT I :rem 40211 

180 DATA "(SEPTEMBER", "{OCTOBER", " {N JOVEMBER", "{DJECEMBER","{JjANUARY", 

"{PJEBRUARY" :rem 34305 

190 DATA "(M}ARCH", " {A}PRIL","{M}AY","{J}UNE","{J}ULY","{A JUGUST" 

:rem 34999 

200 FOR 1=1 TO 34:READ V$(I):NEXT :rem 6964 

210 REM WORDS PRECEDED BY * ARE FOR FUTURE EXPANSION OF THE PARSER 
:rem 53760 

220 DATA HOWL,*SWIM,SLEEP,REST,PLAY,GO,RUN,GET,FOLLOW,EAT,DRINK,KILL 
:rem 3733 

230 DATA CHASE,BITE,HUNT,CATCH,ATTACK,FIGHT,FIND,*MARK,*CARRY,IGNORE 
:rem 18486 

240 DATA *SNIFF,DIG,*BURY,FEED,*COURT,*,AVOID,HELP,HIDE,CROSS,MATE,LOOK 
:rem 37121 

250 FOR 1=1 TO 30:READ N$(I):NEXT :rem 14169 

260 DATA NORTH,SOUTH,EAST,WEST,W,W,W,W,W,WOLF,WOLVES,PUPS,MOUSE,RABBIT, 
DEER :rem 44919 

270 DATA HUMAN,FISH,FOX,AWAY,PORCUPINE,MAN,HUNTER,BEAR,TRAP,MICE,DEN, 
WATER,SNOW :rem 16641 
280 DATA RIVER,TREES :rem 14428 

290 N$(45)="MARKED a AREA a ON a THE a GROUND":N$( 46)“"MARKED A TREE" :rem 61880 

300 N$(47)="MARKED a MOUND":N$(48)="MOUND... a IT a COULD a BE a A a TRAPI" :rem 38628 

310 N$(49)="MOUND... a IT a MIGHT a BE a FOOD." :rem 6171 

320 FOR 1=31 TO 44 :N$ (I) ="DEAD a "+N$ (1-21) :NEXT I srein 42123 

330 REM INPUT MAP :rem 18945 

340 X$="":FOR 1=1 TO 5:READ Y$:X$=X$+Y$:NEXT I :rem 41843 

350 FOR R=0 TO 9:FOR C=0 TO 14:T%(R,C)=ASC(MID$(X$,R*15+C+1,1))-64: 

NEXT C,R :rem 9687 

360 DATA "AAAABBBGBHFCDDDDAAABEEGGHF" :rem 24723 

365 DATA "CDCCDADDBBBHHHFECEEDDDDCGFHFGGEEEKDD" :rem 17730 

370 DATA "BDCGFHFEEEBKLDDDCCBFHGEBEKLMDDD" :rem 48158 

375 DATA "CEBFHFEEBKLMDCCEEGFHFEEEKLMEEEEEFHHFE" :rem 465 

380 DATA "EKKLMEEEEEFHFEBKLMMM" :rem 28875 

385 : :rem 32915 

390 FOR 1=1 TO 13:READ Y$,Z$:D$(I)=Y$+LEFT$(CR$,-(LEN(Z$)>0))+Z$: 

NEXT I :rem 26671 

400 DATA "IN a A a RANGE a OF a HIGH a MOUNTIANS..." :rem 62039 

405 DATA "THERE a DOESN'T a SEEM a TO a BE a MUCH a HERE." :rem 28644 

410 DATA "IN a A a WILLOW a SCRUBLAND." :rem 43901 

415 DATA "THERE a MAY a BE a SOME a MICE a AROUNDI" :rem 27114 

420 DATA "IN a THE a EDGE a OF a A a PINE a FOREST..." :rem 25442 

425 DATA "MANY a ANIMALS a LIKE a THIS a KIND a OF a AREA." :rem 54665 

430 DATA "IN a A a PINE a FOREST.: rem 6891 

440 DATA "IN a AN a OPEN a GRASSY a PLAIN.: rem 35945 

450 DATA "IN*THE a SANDY a BANK a OF a A a RIVER.","" :rem 32788 

455 DATA "ON a A a HILLSIDE a WITH a A a GOOD a VIEW","OF a THE a RIVER." :rem 27019 

460 DATA "IN a A a SWIFTLY a FLOWING a RIVER...","THE a WATER a IS a COLDI" :rem 3690 

470 DATA " A ","":REM RESERVED FOR FUTURE USE :rem 58049 

480 DATA :cem 10339 

490 DATA "ON A THE A FOREST'S A EDGE..." :rem 35377 

495 DATA "THERE a ARE a SIGNS a OF a OTHER a WOLVES." :rem 12501 

500 DATA "IN a A a FOREST. a (T}HERE a ARE a MANY a SIGNS" :rem 43285 
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505 DATA "THAT A OTHER A W0LVES a LIVE a HERE 1" srem 33606 

510 DATA "ONaAaROLLINGaHILLSIDE..." srem 1135 

515 DATA "THEREaISaANOTHERaWOLPaPACKaNEARBYH” srem 4353 

530 FOR 1=1 TO 13:FOR J=1 TO 4:READ PO(I,J),PP(I,J)sNEXT J,I srem 12031 

540 REM POSSIBLE OBJECTS, PROBABILITY OF OBJECT srem 7170 

550 DATA 18,10,23,10,28,95,0,0 srem 21742 

560 DATA 13,20,15,15,18,10,21,5 srem 22122 

570 DATA 15,15,14,10,13,10,22,5 srem 34248 

580 DATA 15,15,18,5,24,5,30,100 srem 28117 

590 DATA 14,20,15,10,21,5,18,5 srem 46756 

600 DATA 15,15,23,5,22,5,20,5 srem 59450 

610 DATA 14,15,13,10,21,5,20,5 srem 10125 

620 DATA 17,80,20,5,27,100,0,0 srem 2424 

630 DATA 0,0,0,0,0,0,0,0 srem 52697 

640 DATA 0,0,0,0,0,0,0,0 srem 60453 

650 DATA 15,20,10,10,11,10,46,50 srem 46157 

660 DATA 15,10,10,15,11,15,46,50 srem 17414 

670 DATA 11,50,46,50,0,0,0,0 srem 59678 

680 PRINT ”{clr wht 2°down) AAA {Y)OU aa WILL a BE aa PLAYING a THE aa ROLES A OF" 
srem 28912 

690 PRINT "TH E A MEMB ERS A A OF a A A PACK A OF A WOLVES. AA {T}HE" srem 63991 
700 PRINT "OBJECT a OF a THE a GAME a IS a TO a SURVIVE a FOR a A" srem 31160 
710 PRINT "YEAR a AND a SUCCESSFULLY a RAISE a YOUR a PUPS." srem 51370 
720 PRINTsPRINT " AAA {Y}OU AA MUST AA WORK A TOGETHER A AND AA AVOID" srem 230 
730 PRINT "CONFLICTS aa WITHIN aa THE a PACK. aa {Y)OU a MUST" srem 50398 
740 PRINT "BE a CAREFUL... a THE a WORLD a IS a A a DANGEROUS"8 
PRINT "PLACE a FOR a WOLVESU" srem 26445 
750 PRINTsPRINT "{A>T A ANY A TIME A YOU A CAN A TYPE A {rvs-on}HELP{rvs-Off> 
a TO a GET a A" srem 41014 

760 PRINT "LIST a OF a WORDS a THE a PROGRAM a UNDERSTANDS.( down)" sGOSUB 6100s 
GOSUB 3890sOM-1 srem 16984 
780 REM MAIN LOOP srem 3075 

800 PRINT "{clr pur}";sT=T+lsIF T>60 THEN 5240sREM END & EVALUATE 
srem 36127 

810 W=W+1sIF W=6 THEN W=1 srem 53176 
820 IF H(W)<1 THEN 800 srem 12944 

830 PRINTsPRINT:M=INT((T-.5)/5)+l sPRINT "{I)T A IS A NOW A " MO$(M) srem 15808 
835 IF M=OM THEN 850 srem 63452 

840 FOR 1*1 TO 150sOB%(1,0)=0:OB%(1,3)*0sNEXT I srem 33488 
850 OM=M sPRINT "{down I>T A IS A {rvs-on}" Y$(W) "(rvs-off}*S a TURN a TO a MAKE" 
srem 49459 

855 PRINT "THEDECISIONS... (down)" srem 49866 

860 IF M=7 AND MT*0 THEN GOSUB 4050 srem 62561 

870 IF M=10 AND MT=1 AND NP=0 THEN 4440 srem 30988 

880 FOR 1=1 TO 5sH(I)=H(I)-FNR(3) srem 45128 

885 IF H(I)<1 AND F(I)=0 AND IOW THEN GOSUB 6220 srem 55738 

890 NEXT Is IF NP>=1 THEN PH=PH+1 srem 5704 

895 X=L%(W)sGOSUB 4590sPRINTsPRINT "{Y>OU a ARE a ";D$(T%(R,C)) s 
GOSUB 4640 srem 59694 

900 GOSUB 4730sGOSUB 4780sGOSUB 4900sGOSUB 4860 srem 58164 
910 GOSUB 1240 srem 6954 

920 IF X2<>48 AND X2<>24 AND X2<>23 AND X2O20 THEN 940 srem 49337 
930 GOTO 3450 srem 17361 

940 IF V=34 THEN PRINT "(clr}";sGOTO 820 srem 55872 
945 IF V=6 THEN DIS=1sGOTO 1390sREM GO srem 59516 
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950 IF V=9 THEN 1660 srem 8128 

960 IF V=7 THEN RU=1:DIS=1:N=FNR(4):GOTO 1420 :rem 56157 
970 IF V=10 THEN 1720 :rem 53153 
980 IF V=1 THEN 1780 :rem 47712 

990 IF V=12 OR V=13 OR V=16 OR V=8 THEN 2050 srem 29213 
1000 IF V=18 OR V=17 OR V=14 THEN 2490 srem 54838 
1010 IF V=24 THEN 2890 :rem 41966 
1020 IF V=26 THEN 3080 srem 50251 
1030 IF V=29 THEN 3710:REM AVOID srem 37706 
1040 IF V=5 THEN 3230 srem 63178 
1050 IF V<>3 AND V<>4 THEN 1080 srem 64272 
1055 H(W)=H(W)+FNR(3) srem 18077 

1060 PRINT "{down TJHE^REST^GIVES^YOU^A^CHANCE^TO^RESTORE"s 
PRINT "LOST^ENERGY." srem 26341 
1070 GOSUB 6100sGOTO 800 srem 41343 
1080 IF V=ll THEN 3390 srem 49255 
1090 IF V<>15 AND V<>19 THEN 1120 srem 27347 
1100 PRINT "{Y)OU*MIGHT a FIND*";N$(N);" A BY*GOING" s 
PRINT "TO a SOME a OTHER a AREA." srem 50186 
1110 GOSUB 6100sDIS s 0sN=lsGOTO 1390 srem 22701 
1120 IF V=31 OR V=29 THEN 3710sREM AVOID HIDE srem 11485 
1130 IF V<>22 THEN 1160 srem 45821 
1140 PRINT "{Y>OU a GO a PAST a THE a "jN$(N);" a WITHOUT"s 
PRINT "STOPPING A TO A INVESTIGATE." srem 64458 
1150 GOSUB 6100sGOTO 800 srem 18419 
1160 IF V<>32 THEN 1200 srem 59769 

1170 PRINTsPRINT "{T)O a CROSS A THE A RIVER A YOU A MUST A BE" srem 47674 
1180 PRINT "ON a THE a BANK a AND a THEN a 'GO' a IN a THE a RIGHT" srem 14193 
1190 PRINT "DIRECTION a (EAST a OR a WEST)." sGOTO 910 srem 27596 
1200 IF V=33 THEN 2670 srem 43623 

1210 PRINT "{down}SORRY... A {I} A DON 1 T A UNDERSTAND A TH AT {down}"s 
GOTO 910 srem 53234 
1240 REM INPUT srem 55300 

1250 W$(1)=""sW$(2)=""sPRINT "{down W}HAT a SHOULD a {I} A DO? A "; sGOSUB 6200s 
A$=IN$ srem 1973 

1260 IF RIGHT?(A$,1)=" A " THEN A$=LEFT$(A$,LEN(A$)-1)sGOTO 1260 srem 28776 

1270 A$=A$+" <S " sA=LEN (A$) sY$=""sIF A=1 THEN 1250 srem 61001 

1280 IF A$="HELP a " THEN 5140 srem 31745 

1290 W$ (1)=""sW$(2)=""sWC=0 srem 56692 

1300 FOR 1=1 TO AsX$=MID$(A$,I,l) srem 12573 

1305 IF X$=" A " THEN WC=WC+1sW$(WC)=Y$sY$=""sGOTO 1320 srem 42102 
1310 Y$=Y$+X$ srem 14726 
1320 NEXT I srem 23971 

1330 IF WC>2 OR WC<1 THEN PRINT "PLEASE.sUSE^l*OR A 2*WORDS" s 
GOTO 1250 srem 333 

1340 GOSUB 3850sIF WC=2 THEN GOSUB 3870 srem 26434 
1350 IF WC=1 AND V>5 AND V<31 THEN PRINT " {I} A DON ' ^UNDERSTAND. " s 
GOTO 1250 srem 40358 

1360 IF V=0 THEN PRINT " {I} ^DON 1 T^KNOWHOW-TO* {rvs-on) ";W$ (1) ; "{rvs-of f } 
^SOMETHING..."sGOTO 1250 srem 60309 
1370 IF NOT (V>0 AND N=0 AND WC=2) THEN 1380 srem 40309 

1375 PRINT "{1} JDON'T^KNOW^HOW^TO^'sV? (V) ; "*{rvs-on)";W$ (2) " {rvs-of f s 

GOTO 1250 srem 19834 
1380 RETURN srem 10668 
1390 REM GO srem 28165 
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1400 RU=0 :rem 64763 

1410 IF N>0 AND N<5 THEN 1420 :rem 28898 

1415 PRINT "(I) JZAN^'GO' ..NORTH, ..SOUTH, „EAST*OR*WEST{down} " : 

GOTO 910 :rem 20229 
1420 X=L%(W)sGOSUB 4590 ;rem 1586 
1430 ON N GOTO 1440,1460,1480,1500 :rem 33931 
1440 IF R-DIS<0 THEN 1520 srem 59078 
1450 R=R-DISsGOTO 1540 :rem 60254 
1460 IF R+DIS>9 THEN 1520 srem 43272 
1470 R=R+DISsGOTO 1540 srem 49044 
1480 IF C+DIS>14 THEN 1520 srem 60442 
1490 C=C+DISsGOTO 1540 srem 62322 
1500 IF C-DIS<0 THEN 1520 srem 29422 
1510 C=C-DISsGOTO 1540 srem 35536 
1520 IF RU=1 THEN N=FNR(4)sGOTO 1430 srem 65211 

1530 PRINT " {T )HAT a WOULD a TAKE OUTS IDE ^THE^PROTECTION " srem 32456 
1533 PRINT "OFJTHE^FOREST." srem 14079 

1535 PRINT "{P>ICK a ANOTHER^DIRECTION;( down)"sGOTO 910 srem 26671 
1540 PRINT "{clr}"sH(W)=H(W)-INT(DIS/2)sWW=WsGOSUB 4620 srem 49130 
1550 IF DIS=0 THEN 800 srem 22516 

1560 FOR 1=1 TO 5sIF I=W OR H(I)<1 OR L%(I)OX THEN 1620 srem 37887 

1570 IF NOT (B(W,I)>80 AND RND(1)>.15) THEN 1590 srem 27169 

1580 PRINT Y$(I) ? " A WILL*GO*WITH*YOU." sL% (I) =L% (W) srem 58885 

1585 H(I)=H(I)-INT(DIS/2)sGOTO 1620 srem 36136 

1590 PRINTsPRINT Y$ (I) ; J)O.YOU*WANT*TOX30*WITH" srem 1272 

1595 PRINT Y$(W)/"?«";sGOSUB 6200 srem 45889 

1600 A$=IN$sIF LEFT$(A$,1)="N" THEN 1620 srem 23104 

1610 L%(I)=L%(W)sH(I)=H(I)-INT(DIS/2) srem 22564 

1620 NEXT I srem 8436 

1630 GOSUB 6000sGOTO 800 srem 64825 

1650 REM FOLLOW srem 29190 

1660 IF NOT (N<5 OR N>9) THEN 1680 srem 65460 

1670 PRINT " {Y }OU *CAN ^ONLY*' FOLLOW' * AN OTHER,* PACK "sPRINT "MEMBER, {down} " s 
GOTO 910 srem 7103 

1680 IF N-4=W THEN PRINT "{Y}OU*CAN'T^FOLLOW^YOURSELF 11"sGOTO 910 srem 3798 
1690 IF H(N-4)<1 THEN PRINT "(TJHAT^WOLF^IS^DEAD.(down)"s 
GOTO 910 srem 27271 

1700 L%(W)=L%(N-4)sH(W)=H(W)-FNR(3)sGOTO 800 srem 50275 

1720 REM EAT srem 47110 

1730 IF N<>28 THEN 1750 srem 50474 

17 40 PRINT "(TjHAT^QUENCHED^YOURysTHIRST^BUT^NOT" srem 43162 
1745 PRINT "YOUR^HUNGER."sGOSUB 6100sGOTO 800 srem 48016 
1750 IF OB% (X, 0) ON+21 THEN PRINT N$ (N) ; "„ISN' T*DEAD„YET. " s 
GOTO 910 srem 41542 

1760 PRINT "(TJHE^";N$(N);"^HAS^BEEN^EATEN.“sOB%(X,0)=0 sGOSUB 6000s 
GOTO 800 srem 12062 
1780 REM HOWL srem 62470 

1790 PRINT "(clr I}N„AN A ATTEMPT„TO„..LOCATE„OTHER^WOLVES, " srem 34122 
1800 PRINT "YOU..LET^OUT* A^LGNG,^LOW^HOWL^THAT" srem 31559 
1805 PRINT "CARRIES^FOR^OVER^TWO^MILES" srem 30035 
1810 PRINT "{2°down 7°right)";sFOR 1=1 TO 17s 

PRINT MID$("ARRRRROOOOOOOOOOO",I,1); srem 20371 
1820 FOR J=1 TO 5*(17-1)sNEXT J,IsPRINT "(2°down}" srem 23325 
1830 X=L%(W)sGOSUB 4590sRl=RsCl=C srem 45286 
1840 FOR 1=1 TO 5sIF I=W OR H(I)<1 THEN 1930 srem 19605 
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1850 IF L%(I)=L%(W) THEN B(I f W)=B(I,W)+5:B(W,I)=B(W,I)+5s 
GOTO 1930 :rem 11032 

1860 X=L%(I)sGOSUB 4590sT$="" srem 30815 
1870 IF R<R1 THEN T$="NORTH" srem 28173 
1880 IF R>Rl THEN T$="SOUTH" srem 12512 
1890 IF C>C1 THEN T$=T$+"EAST" srem 6867 
1910 IF C<C1 THEN T$=T$+"WEST" srem 3982 
1915 IF T$=" " THEN 1930 srem 53555 

1920 PRINT Y$ (I) ; " a IS a HOWLING a BACK a FROM" sPRINT "THE a ";T$;"." srem 32856 
1930 NEXT I srem 1789 

1940 OH=0 sFOR I=R-1 TO R+lsFOR J=C-1 TO C+l srem 40898 
1950 IF I<0 OR J<0 OR I>9 OR 014 THEN 1970 srem 31811 
I960 IF T%(I f J)>10 AND RND(1)>.3 THEN OH=l srem 40916 
1970 NEXT J f I srem 8468 
1980 IF OHOl THEN 2020 srem 63330 

1990 PRINT "(A) a STRANGE a WOLF a PACK a ANSWERS A YOUR A HOWL."s srem 18466 

2000 PRINT "{T}HE a SOUND a COMES a FROM a ALL a AROUND a SO" srem 24543 

2010 PRINT "YOU a ARE a NOT a SURE a WHERE a THEY a ARE." srem 26984 

2020 GOSUB 6100sPRINT "{clr>";sGOTO 910 srem 31535 

2040 REM CHASE GET CATCH KILL srem 63495 

2050 Z=0sIF N>9 AND N<>12 THEN 2090 srem 61591 

2060 IF V<>12 THEN 2090 srem 61048 

2070 PRINT "{A) a WOLF a WOULD a RARELY a ATTEMPT a TO a KILL" srem 9971 
2075 PRINT "A a MEMBER a OF a ITS a OWN a PACK(down)" srem 54171 
2080 GOSUB 6100sGQSUB 910 srem 61566 

2090 H(W)=H(W)-FNR(5)sX=L%(W)sFOR 1=0 TO 3sIF OB%(X,I)=N THEN 
2120 srem 34158 
2100 NEXT I srem 51728 

2110 PRINT "{I} a DON,'T a SEE a IT a HERE"sGOTO 910 srem 51843 

2120 IF N=13 AND RND(1)>.2 THEN PRINT GG$sG=5sGOTO 2390 srem 48685 

2130 IF N=13 THEN 2350 srem 56366 

2140 IF N=14 AND RND(1)>.45 THEN PRINT GG$sG=5sGOTO 2410 srem 34474 
2150 IF N=14 THEN 2350 srem 36269 

2160 IF N=15 AND RND(1)>.7 AND PS*FNR( 100)>300 THEN PRINT GG$sG=20s 
GOTO 2430 srem 50925 
2170 IF N=15 THEN 2350 srem 35057 

2180 IF N=18 AND FNR(100)>30 THEN PRINT GG$sG=10sGOTO 2450 srem 46889 
2190 IF N=18 THEN 2350 srem 10231 
2200 IF NO20 THEN 2230 srem 26942 

2210 PRINT "{Y>OU^GOT.A.MOUTHFULL a OF a QUILLS^AS a YOU" srem 19364 
2215 PRINT "BIT A THE A PORCUPINE"; srem 51789 

2220 PRINT " a {Y}OU^ARE a INJURED!" sH(W)=H(W)-20sZ=41sGOSUB 6100s 
GOTO 2390 srem 8720 

2230 IF N=17 AND RND(1X.33 THEN 2350 srem 16483 

2240 IF N=17 THEN PRINT GG$sH(W)=H(W)+5sGOTO 2390 srem 32149 

2250 IF NOT (N=16 OR N=21 OR N=22) THEN 2270 srem 53376 

2260 PRINT "{T}HAT a WAS a A a BAD a CHOICE... A YOU a GOT a SHOT." sH(W)=-lsOB%(X,0)=31s 
F(W)=1 srem 26631 

2265 PRINT "YOU a ARE a DEADI11"sGOSUB 6100sGOTO 800 srem 12920 
2270 IF NO23 OR PS*FNR(100) <101 THEN 2280 srem 30948 
2275 PRINT "{Y)OU a DROVE a THE a BEAR a AWAY"sG= — 5sGOTO 2360 srem 27076 
2280 IF NO23 THEN 2310 srem 23377 

2290 PRINT "{Y)OU a WERE a INJURED a DRIVING a THE a BEAR a AWAYI"s 
H(W)=H(W)- 20 srem 11538 
2300 Z=0sG=-10sGOTO 2360 srem 33874 
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2310 IF NO10 AND NOll THEN PRINT "{I>.DON'T.UNDERSTAND.THAT"s 
GOTO 910 srem 28234 

2320 IF NOT (T%(R,C)=11 AND FNR(100)>30) THEN 2340 srem 5571 
2330 PRINT "{Y}OU.FOUGHT.AND.LOST."sB(W)=H(W)-10sZ=OsG=-5s 
GOTO 2360 :cem 51869 

2340 PRINT "{YJOU.DROVE.THEM.OUT."sG=10sZ=0sS(W)=S(W)+1: 

GOTO 2360 srem 37761 

2350 PRINT ".{T)HE.";N$(N)j".ESCAPED." sOB%(X,3)=0 srem 37984 
2355 H(W)=H(W)-FNR(5)sGOSUB 6000sGOTO 800 srem 21403 
2360 FOR 1=1 TO 5sIF L%(I)OX THEN 23 80 srem 49623 
2370 IF H(I)>1 THEN H(I)=H(I)+G srem 23929 
2380 NEXT IsGOTO 2470 srem 59718 

2390 PRINT "{TJHAT.TASTED.GOOD.BUT.THERE.WASN 1 T" srem 55662 
2400 PRINT "ENOUGH.TO.SHARE.WITH.THE.OTHERS."sH(W)=H(W)+5s 
GOTO 2470 srem 212 

2410 PRINT "{T)HAT.WILL.SATISFY.YOUR.HUNGER.FQR.A" srem 40027 
2420 PRINT "WHILE.AND.THERE.IS.A.BIT.LEFT.FOR.THE"SPRINT "OTHERS."s 
GOTO 2360 srem 10162 

2430 PRINT "(down TJHE.DEER.WILL.PROVIDE.ENOUGH.FOOD.FOR" srem 1434 

2440 PRINT "YOU.AND.THE.PACK.FOR.A.FEW.DAYS."sGOTO 2360 srem 18978 

2450 PRINT ''{down YUCK} 1 .{F}OXES.DON ' T.TASTE .VERY.GOOD.BUT" srem 28172 

2460 PRINT "THEY.HAVE.SOME.MEAT.ON.THEM."sGOTO 2360 srem 10888 

2470 OB%(X,3)=0sOB%(X,0)=ZsGOSUB 6100sGOTO 800 srem 43935 

2480 REM ATTACK BITE FIGHT srem 45065 

2490 IF N>9 THEN 2620 srem 37867 

2500 WW=N-4sIF L%(W)<>L%(WW) THEN PRINT Y$(WW);".ISN 1 T.HERE"s 
GOTO 910 srem 5434 

2510 IF WW=W THEN PRINT "{YJOU.CAN 1 T.FIGHT.WITH.YOURSELF1"s 
GOTO 910 srem 65316 

2520 IF H(WW)<1 THEN PRINT Y$(WW);".IS.DEAD!"sGOTO 910 srem 11704 
2530 IF S$(W)=S$(WW) THEN 2570 srem 46944 

2540 PRINT "{WJOLVES.RARELY.FIGHT.WITH.MEMBERS.OF.THE'' srem 42500 
2545 PRINT "OPPOSITE.SEX1.NOW."; srem 22962 

2550 PRINT Y$(WW);".DOES.NOT"SPRINT "LIKE.TO.BE.WITH.YOU." srem 35896 
2560 B(W,WW)=B(W,WW)-30sB(WW,W)=B(WW,W)-30sGOSUB 6100sGOTO 800 srem 57882 
2570 PRINT "{T)HE.PACK.LOOKS.ON.AS.";Y$(W);".AND"s 
PRINT Y$(WW);".FIGHT.{down}" srem 46738 
2580 IF H(W)*A(W)*(S(W)+1)*FNR(4)<=H(WW)*A(WW)*(S(WW)+1)*FNR(4) THEN 
2590 srem 23129 

2585 WL=WWsGOTO 2600 srem 23983 
2590 WL=W srem 53771 

2600 PRINT Y$(WL);".IS.DEFEATED.AND.RUNS.OFF."sS(WW)=S(WW)-1s 
S (W) =S (W) +1 srem 197 51 

2610 B(W,WW)=B(W,WW)-10sB(WW,W)=B(WW,W)-10sGOSUB 6100sGOTO 800 srem 17686 
2620 PRINT "..{YJOU.RAISE.YOUR.HACKLES.AND.TRY.TO" srem 44997 
2630 PRINT "LOOK.AS.LARGE.AS.POSSIBLE.AS.YOU.GET"s 
PRINT "READY.TO.ATTACK.THE."; srem 28645 
2640 PRINT N$(N)"sGOSUB 6000sGOTO 2050 srem 56321 

2650 PRINT "{I}.DON 1 T.UNDERSTAND.WHAT.YOU.WANT.TO.DO"sGOTO 910 srem 9153 

2660 REM MATE srem 25610 

2670 PRINTsIF M>=6 THEN 2700 srem 267 

2680 PRINT "{down I}T.IS.TOO.EARLY.IN.THE.YEAR.FOR.A" srem 64692 
2685 PRINT "WOLF.TO.CONSIDER.MATING" srem 60385 
2690 GOTO 2870 srem 18607 

2700 IF NOT (MT=1 AND (WOMM AND WOFM)) THEN 2730 srem 1661 
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2710 PRINT Y$(FM);" a HAS a ALREADY a MATED a WITH a ";Y$(MM); " srem 11378 

2720 PRINT "{U}SUALLY a ONLY a ONE a PAIR a IN a THE a PACK a WILL":PRINT "MATE.": 

GOTO 910 srem 17454 

2730 IP MT=1 AND (W=MM OR W=FM) THEN PRINT "{Y>OU a HAVE a ALREADY a MATED.": 

GOTO 910 srem 12609 
2740 IF A(W) >-2 THEN 2780 srem 12056 

2750 PRINT "{Y)OU a ARE a A a YEARLING. A (W>OLVES a USUALLY" :rem 59729 

2770 PRINT "{D}ON'T a MATE a UNTIL a THEY a ARE a AT a LEAST" :rem 30479 

2775 PRINT "TWO a YEARS a OLD.":GOTO 2870 srem 31790 

2780 IF NOT <S$(W)»"M" AND A(W)<3) THEN 2810 :rem 9391 

2790 PRINT "{M}ALE a WOLVES a USUALLY a DO a NOT a MATE" :rem 54239 

2795 PRINT "UNTIL a THEY a ARE a 3 a YEARS a OLD." srem 29846 

2800 GOTO 2870 :rem 4522 

2810 PRINT "{M}ALE a AND a FEMALE a WOLVESDETERMINE a WHICH" srem 44232 
2820 PRINT "PAIR a WILL a MATE a PARTLY a ON a THE a BASIS a OF" :rem 14524 
2830 PRINT "FIGHTS. aa (Y}OU a MIGHT a WANT a TO a TRY a TO a RAISE" srem 41848 
2840 PRINT "YOUR a STATUS a BY a FIGHTING a WITH a ANOTHER" :rem 61456 
2850 PRINT "WOLF a OF a THE a SAME a SEX... a BUT a REMEMBER," srem 13967 
2860 PRINT "THIS a CAN a INTEREFERE a WITH a THE a HUNTING" srem 5045 
2865 PRINT "EFFICIENCY a OF a THE a PACK.( down)" srem 20752 
2870 GOSOB 6100:PRINT:GOTO 910 srem 30647 
2890 REM DIG srem 18955 

2900 IF NO26 THEN PRINT "{Y}OU a CAN a ONLY a 1 DIG A DEN 1 • "sGOTO 910 srem 455 
2910 IF NPO.l THEN 2940 srem 6530 

2920 PRINT "{I}T'S a TOO a LATE a NOW, a THE a PUPS a HAVE" SPRINT "ALREADY a DIED. " 
srem 27457 

2930 GOSUB 6100sGOTO 800 srem 14553 
2940 IF DDOl THEN 2970 srem 52622 

2950 PRINT "{A> a DEN a HAS a ALREADY a BEEN a DUG, a MOST a WOLF" srem 59360 
2960 PRINT "PACKS a WILL a ONLY a NEED a ONE a AT a A a TIME."sGOTO 910 srem 23367 
2970 IF T>=32 THEN 3000 srem 11715 
2980 PRINT "(I}T'S a TOO a EARLY a IN a THE a YEAR a TO a DIG"s 
PRINT "A a DEN a — a WAIT a A a WHILE. " srem 28657 
2990 GOSUB 6100:GOTO 800 srem 56607 
3000 IF T%(R,C)=7 THEN 3030 srem 41571 

3010 PRINT "{T}HIS a ISN'T a A a GOOD a SPOT a FOR a A a DEN." srem 22182 
3020 PRINT "(W}OLVES A USUALLY A DIG A DENS A ON A HILLSIDES"SPRINT "NEARJfATER. ": 
GOTO 910 srem 23217 

3030 PRINT "{OJKAY... a {Y>OU aa HAVE a FOUND a A a NICE a SPOT a ON" srem 12597 
3040 PRINT "THE a HILL a TO a DIG a A a DEEP a DEN. " srem 20968 
3050 DD=1:DL=X:OB%(X?2)=26:GOSUB 6100sGOTO 800 srem 33284 
3070 REM FEED srem 65035 

3080 IF N=FM+4 OR N-12 THEN 3090 srem 62784 

3085 PRINT ■{I} a CAN a 0NLY a 'FEED' A PUPS A OR A THEIR A MOTHER." sGOTO 910 srem 4012 
3090 IF NP<1 THEN PRINT "{T>HERE a ARE a NO a PUPS." sGOTO 910 srem 37374 
3100 IF H(W) >75 THEN 3130 srem 39655 

3110 PRINT "{Y}OU A HAVE A NO A EXTRA A FOODf a YOU a HAVE a NOT" srem 40600 
3115 PRINT "EATEN A RECENTLY A YOURSELFJ" srem 16066 
3120 GOTO 910 srem 28354 
3130 IF L%(W)=DL THEN 3160 srem 50800 
3140 PRINT "{Y}OU a ARE a NOT a AT a THE a DEN, a THERE a ARE a NO" s 
PRINT "PUPS a HERE a TO a FEED. " srem 18145 
3150 GOTO 910 srem 36589 
3160 IF NOFM THEN 3190 srem 61269 
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3170 PRINT "{N>OW a THAT a ";Y$(FM);" a HAS a EATEN"s 

PRINT "SHE a WILL a BE a ABLE a TO a CARE a FOR" srem 21001 
3180 PRINT "THE a PUPS a MUCH a BETTER."sH(FM)=H(FM)+5sPH=PH-3sGOSUB 6100s 
GOTO 800 srem 35441 

3190 PRINT "{T>HE a PUPS a EAGERLY a TAKE a THEIR a FOOD a AND a GO" srem 41487 
3200 PRINT "RUNNING A OFF A TO A GOBBLE A IT A UPl"sPH=PH-4 sGOSUB 6100s 
GOTO 800 srem 64783 

3210 IF N>4 THEN PRINT "{I} a CAN a 0NLY a 'GO' A NORTH, A SOUTH, a EAST, a OR a WEST"s 
GOTO 910 srem 22999 
3220 REN PLAY srem 37900 

3230 PRINT "{W>ITH a WHOM a DO a YOU a WANT a TO a PLAY"SPRINT "WITH? A ";s 
GOSUB 6200 srem 33908 

3235 A$=MID$(Y$(W),2,LEN<Y$<W))-2) srem 3788 

3240 IF A$=IN$ THEN PRINT "{Y)OU a CAN'T a PLAY a AL 0NE. .. "sGOTO 910 srem 57301 
3245 A$=IN$ srem 35272 

3250 IF LEFT$(A$,3)<>"PUP" THEN 3300 srem 34293 

3260 IF NP<1 THEN PRINT "{T>HERE A ARE A NO A PUPS1"sGOTO 910 srem 1669 
3270 PH=PH-2sPRINT "(down Y>OU a AND a THE a PUPS a CHASE a EACH a OTHER" srem 29325 
3280 PRINT "AROUND a A a TREE. A (T)HIS a KIND a OF a PLAY a IS" srem 20406 
3290 PRINT "GOOD a EXERCISE a AND a TRAINING a FOR a PUPS." sGOSUB 6100s 
GOTO 800 srem 47516 

3300 PP=0sFOR 1=1 TO 5sIF I=W THEN 3310 srem 58897 
3305 IF A$=MID$(Y$(I),2 ,LEN (Y$ (I))-2) THEN PP=I srem 45667 
3310 NEXT IsIF PP=0 THEN PRINT "(I> A DON'T A KNOW A WHO A ";A$;" A IS."s 
GOTO 910 srem 4666 

3320 IF H(PP)<1 THEN PRINT Y$(PP);" a IS a DEAD 1"sGOTO 910 srem 45042 
3330 IF L%(W)<>L%(PP) THEN PRINT Y$(PP);" A ISN 1 T^HERE."sGOTO 910 srem 19475 
3340 PRINT Y$(W);" a AND a ";Y$(PP);" a HAVE a A a VIGOROUS" srem 11762 
3350 PRINT "GAME a OF a TAG. a (P}LAY a GIVES a WOLVES" srem 26924 
3360 PRINT "PRACTICE a IN a WORKING a TOGETHER a AND a MAKES" srem 33397 
3370 PRINT "THEM A BETTER^HUNTERS 1"sB(W,PP)=B(W, PP)+5 s B(PP,W)=B(PP r W)+5 
srem 32209 

3380 GOSUB 6100sGOTO 800 srem 25588 

3390 IF NO27 THEN PRINT "{Y>OU a CAN a ONLY a ' DRINK' .WATER. " s 
GOTO 910 srem 16701 
3400 GOSUB 4610 srem 64828 

3410 IF T%(R,C)08 THEN PRINT "{Y)OU a HAVE a TO a BE a IN a THE a WATER a TO a DRINK. "s 
GOTO 910 srem 11598 

3420 PRINT "(T>HE a WATER a IS a VERY a REFRESHING." sGOSUB 6100sGOTO 800 srem 26358 

3440 REM NEED TO AVOID srem 28685 

3450 IF V=7 OR V=29 OR V=31 THEN 3710 srem 20328 

3460 IF (V>11 AND V<15) OR (V>15 AND V<19) OR V=8 THEN 2050 srem 55315 
3470 IF X2O20 THEN 3510 srem 44503 

3480 IF RND(l)>.2 THEN PRINT "{T)HE a PORCUPINE a IS a STARTLED a AND a RUNS a OFF"s 
GOTO 3690 srem 21381 

3490 PRINT "{T)HE a PORCUPINE a IS a ALARMED a AND a STRIKES" srem 10313 
3500 PRINT "YOU a WITH a ITS a TAIL. a {Y}OU a ARE a HURTI"sH(W)=H(W)-20s 
GOTO 3690 srem 1113 
3510 IF X2<>23 THEN 3590 srem 31827 

3520 IF RND(1)>.1 THEN PRINT "(T}HE a BEAR a IS a NOT a INTRESTED a IN a YOU." s 
GOTO 3690 srem 2842 
3530 IF PS<=1 THEN 3560 srem 14497 

3540 PRINT "{T>HE a BEAR a IS a INTIMIDATED a BY a YOU a AND" srem 29749 
3550 PRINT "YOUR a PACKMATES a AND a LUMBERS a OFF."sOB%(X,3)»Os 
GOTO 3690 srem 36215 
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3560 PRINT "{T}HE a BEAR a IS a NOT a FRIGHTENED a BY a A a LONE" srem 46031 
3570 PRINT "WOLF. a {I}T a CHARGES a AT a YOU a AND a WHILE" srem 39243 
3580 PRINT "RUNNING, a YOU a SLIP a AND a HURT a YOURSELFI"sH(W)»H(W)-20s 
GOTO 3690 srem 28122 

3590 IF X2<>21 AND X2<>22 THEN 3610 srem 13544 

3600 PRINT ,, {T)HE a HUMAN a DOESN , T a SEE a YOU. "sGOTO 3690 srem 9293 

3610 IF RND(l)>.6 THEN 800 srem 46491 

3620 PRINT "(down Y}OU a ARE a CAUGHT a IN a THE a TRAP 11111" srem 24676 
3630 PRINT "{2°down 3°right Y}OU A STRUGGLE A TO A GET A LOOSE A BUT A YOU" srem 35423 
3640 PRINT "CANNOT. A {I)N a THEIR a PANIC, A THE A REST A OF" srem 5033 
3650 PRINT ”THE a PACK a SCATTERS A THROUGHOUT A THE A AREA{down)" srem 52348 
3660 PRINT "{3°right Y)OU A GO A INTO A SHOCK... a AND a DIE. " OB%<X,0)»31sH(W)—Is 
F(W)=1 srem 6446 

3670 IF NOT (W=FM AND NP>1) THEN 3690 srem 24824 

3680 PH=PH+2sPRINT "{T}HE a REST a OF a THE a PACK a MUST a LOOK a AFTER a THE a PUPS.■ 
srem 31709 

3690 GOSUB 6100sGOTO 800 srem 37320 
3710 IF V<>31 THEN 3730 srem 4207 

3720 PRINT "{down Y)OU A CROUCH A LOW A TO A THE A GROUND A TO" srem 34181 
3725 PRINT "AVOID A BEING A SEEN"sGOTO 3750 srem 46238 
3730 IF V=7 THEN RU=1$DIS=1sN=FNR(4)sGOTO 1420 srem 39205 
3740 PRINT "{Y}OU a CAREFULLY a MAKE a YOUR a WAY a AROUND"SPRINT "THE A ">N$(N);" 
srem 6657 

3750 IF X2<>23 THEN 3780 srem 4795 

3760 PRINT "{down T}HE a BEAR a IS a TOO a BUSY a EATING"sPRINT "TO a NOTICE a YOU." 
srem 65023 

3770 GOTO 3840 srem 48300 

3780 IF X2<>21 AND X2<>22 THEN 3840 srem 12164 
3790 ON FNR(3)+1 GOTO 3800,3810,3830 srem 58879 
3800 PRINT "{T}HE a MAN a DOESN'T a SEE a YOU."sGOTO 3840 srem 65130 
3810 PRINT "{T)HE a MAN a GETS a A a QUICK a LOOK a AT a YOU a AND" srem 13740 
3820 PRINT "IS a EXCITED a TO a HAVE a HAD a THE a CHANCE a TO" srem 52236 
3825 PRINT "SEE a A a WOLF a IN a THE a WILDI" sGOTO 3840 srem 23050 
3830 PRINT "{T}HE a MAN a SEES a ONLY a A a SHADOW a AS a YOU a SLIP"s 
PRINT "AWAY." srem 61746 
3840 GOSUB 6100sGOTO 800 srem 42301 

3850 V=0 sFOR 1=1 TO 34sIF W$(1)=V$(I) THEM V=IsRETURN srem 64924 
3860 NEXT IsRETURN srem 25598 

3870 N=0 sFOR 1=1 TO 30sIF W$(2)=N$(I) THEN N=I:RETURN srem 28776 
3880 NEXT IsRETURN srem 37 

3890 PRINT "{clr 2°down T}HERE a ARE a 5 a WOLVES a IN a THIS a PACK.( down)" srem 54812 
3900 READ X$ srem 6577 

3910 DATA "M2M3M5F4F3M5F6M3F3M2M4F4F2F2M3M4M4F3F3F2M6F5M2M4F3M3F2M2F1F2" 
srem 19154 

3920 X=FNR(6)sX$=MID$(X$»10*X+1,10) srem 43170 

3930 FOR 1=1 TO 5sPRINT n {pur>WOLF A #";IsPRINTsS(I)=0 srem 65149 

3940 S$(I)=MID$(X$,2*1-1,1)SPRINT "SEXs A ") srem 30869 

3950 IF S$(I)="F" THEN PRINT "FE"j srem 57683 

3960 PRINT "HALE" srem 11124 

3970 A(I)=VAL(HID$(X$,2*1,1))sPRINT "AGE: A ";A(I);" a YEARS a OLD" srem 42889 
3980 X=FNR<4)sY$=MID$(C$,X*5+1,5)sPRINT "COLOR: A ";Y$:PRINT srem 28827 
3990 PRINT "{down pur WiHAT A DO A YOU a WANT A TO A CALL A THIS A WOLF?{ grn)" srem 11972 
3995 GOSUB 60000sIF IN$="“ THEN 3990 srem 33294 

4000 N$(1+4) =!N$sY$(I) =MID$("{yel cyn yel red Eur)",I,l)+IN$+*{pur}* 
srem 40904 
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4010 FOR J=1 TO LEN(IN$)sIF MID$(IN$, 3 , 1 ) <>**" THEM NEXT J: 

GOTO 4030 srem 61862 

4020 PRINT M {P)LEASE a GIVE a THE a WOLVES a ONE a WORD a NAMES."{PRINTS 
GOTO 3990 srem 57117 

4030 PRINT "{clr)"j:NEXT I:RETURN srem 40286 
4050 REM MATING :rem 53775 

4060 M1=0:F1=0:FOR J=1 TO 5:IF H(J)<1 THEN 4090 srem 24587 

4070 IF S$(J)="M" THEN Ml=l srem 15286 

4080 IF S$(J)="F" THEN Fl=l :rem 37714 

4090 NEXT J:IF Fl+Ml>=2 THEN 4130 :rem 25748 

4100 PRINT " {U}NFORTUNATELY a THE a CURRENT a PACK A DOES,*NOT" :rem 45792 
4110 PRINT "HAVE A BOTH a MATURE a MALES a AND a FEMALES A SO" :rem 24129 
4120 PRINT "THERE a WILL a BE a NO a MATING a AND a NO a PUPS. ":MT=2:GOSUB 6,100: 

RETURN :rem 47629 

4130 FOR 1=1 TO 5:IF S$(I)="M" THEN 4200 srem 7166 

4140 FOR J=1 TO 5:IF S$(J)="M" OR J=I OR H(J)<1 THEN 4190 :rem 4685 
4150 IF A(I)*H(I)>=A(J)*H(J) THEN S(I)=S(I)+1:GOTO 4170 :rem 25577 
4160 S(J)=S(J)+1 srem 37274 
4170 D=(A(I)*H(I) )/(A(J) *H( J)) srem 8868 

4180 IF D>1 THEN D=l/D:B(I,J)=B(I,J)-20*DsB(J,I)=B(J,I)-20*D srem 32726 
4190 NEXT J srem 48587 
4200 NEXT I srem 4859 

4290 MAX=-99:FOR 1=1 TO 5:IF S$(I)="M" THEN 4310 srem 38682 
4300 IF S(I)>MAX THEN MAX=S(I):FM=I srem 29008 
4310 NEXT I srem 12281 

4320 MAX=-99:FOR 1=1 TO 5:IF S$(I)="F" THEN 4340 srem 24346 
4330 IF S(I)>MAX THEN MAX=S(I)sMM=I srem 33629 
4340 NEXT I srem 20349 

4345 IF L%(FM)<>L%(MM) THEN 4100 srem 53286 

4350 PRINT "(down A)FTER a SOME a SQUABBLING a AMONG a THE a MALES" srem 35341 
4360 PRINT "AND a THE a FEMALES a OF a THE a PACK..." srem 21550 
4370 PRINT Y$ (FM); " a WILL a MATE a WITH a ";Y$ (MM) ; " srem 4016 

4380 B(FM,MM)=B(FM,MM)+20:B(MM,FM)=B(MM,FM)+20:MT=1 srem 52825 
4390 PRINT "{down 3°right T)HESE a ARE a THE a ANIMALS a THAT a WERE a OFTEN"; 
srem 42751 

4400 PRINT "TH E A W INN ERS A IN A DIS PU TES A WITH A OTH ER " srem 2015 
4410 PRINT "WOLVES^IN a THE a PACK." srem 32287 

4420 PRINT "{down T}HE a PUPS a WILL a BE a BORN a IN a ABOUT a 2 A MONTHS."sGOSUB 6100s 
GOTO 910 srem 23044 
4440 REM PUPS srem 22545 

4450 PRINT ”{3°right S}PRING a HAS a ARRIVED... a THE a TIME a WHEN" srem 15231 
4460 PRINT "PUPS a AJRE a USUALLY a BORN. {down}" srem 47283 
4470 IF H(FM)>=1 THEN 4490 srem 55605 

4480 PRINTsPRINT Y$(FM);" a DIED a BEFORE a SHE a HAD a HER a PUPS." srem 62040 

4485 NP=.lsGOSUB 6100:GOTO 910 srem 48785 

4490 NP=(2*H(FM)+H(MM))/300:NP=INT(NP*6) srem 21381 

4500 IF NP>7 THEN NP=7 srem 54834 

4510 IF NP<2 THEN NP=2 srem 47664 

4520 PRINT TAB(ll);"{rvs-on CONGRATULATIONS)11!{rvs-off}• srem 32792 

4530 PRINT Y$(FM);"«HAD";NP;" A PUPS.{down}" srem 41769 

4540 IF DD=1 THEN GOSUB 6100:OB%(DL,1)=12sL%(FM)=DL:GOTO 910 srem 5311 

4550 PRINT "{U)NFORTUNATELY, A NOBODY A DUG A A A DEN A FOR" srem 50647 

4560 PRINT "THEM^BEFORE^THEY^ERE.BORN. ■ srem 19137 

4570 PRINT "{S)O a THE a PUPS a DIED a OF a EXPOSURE a TO a COLD." sNP=.l srem 56762 
4580 OB%(DL?1)=0sOB%(DLr0)=33sGOSUB 6100:GOTO 910 srem 59222 
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4590 REM LOCATION 1 srem 60945 

4600 REM ASSUMES X=L%(W) :rem 63505 

4610 R=INT((X-1)/15):C=X-15*R-1{RETURN srem 48155 

4620 REM RETURNS L% GIVEN R,C AFTER MOVE srem 3090 

4630 L%(WW)=R*15+C+lsRETURN srem 16745 

4640 REM PARTNERS srem 8210 

4650 PRINT b {Y}OU a ARE a WITHs" srem 10849 

4660 PS=1 srem 7427 

4670 FOR K=1 TO 5sIF K=W THEN 4690 srem 27299 

4680 IF L%(K)=L%(W) AND H(K)>0 THEN PRINT Y$(K);" AA ";sPS=PS+l srem 27806 

4690 NEXT K srem 55525 

4700 IF PSOl THEN 4720 srem 34018 

4710 PRINT "{N}O a ONE a ELSE a FROM a THE a PACK"SPRINT "THAT a CAN a BE a RISKY 1" 
srem 5281 

4720 PRINT{RETURN srem 38151 

4730 REM OBJECT PLACEMENT srem 31250 

4740 X1=T%(R,C)sOB=0 srem 32887 

4750 FOR 1=1 TO 4sX2=PP(Xl,I)sX3=FNR(100) srem 21762 

4760 IF X3<=X2 THEN OB=PO(XI,I)sOB%(X f 3)=OB{GOTO 4775 srem 3759 

4770 NEXT I srem 52006 

4775 RETURN srem 55171 

4780 REM REPORT srem 44050 

4790 PRINTsPRINT RP$(FNR(5)+1)sNO=0sFOR 1=0 TO 3sX2=OB%(X,I) srem 27114 
4800 IF X2=0 THEN 4830 srem 50701 

4810 IF X2<>11 AND X2<>12 AND X2<>27 AND X2<>28 AND X2O30 THEN 
PRINT "{A> A n ? srem 4031 
4820 PRINT N$(X2)sNO=l srem 40584 
4830 NEXT I srem 34322 

4840 IF NO=0 THEN PRINT "NOTHING^SPECIAL." srem 16715 

4850 RETURN srem 56787 

4860 REM WARNINGS srem 64530 

4870 LW=0sFOR J=1 TO 5sIF H(J)>=1 THEN LW=LW+1 srem 8345 
4880 NEXT JsIF LW>=1 THEN RETURN srem 23893 

4890 PRINT "{4°down 2°right T}HE a LAST a MEMBER a OF a THE a PACK a HAS a DIED!■ 
srem 24963 

4895 GOSUB 6100sPRINT "{clr 3°down Y)OUR a STANDINGS a AREs{ 2°down)"s 
GOTO 5270 srem 21872 

4900 IF T%(R,C)<>8 THEN TR=OsGOTO 4940 srem 51127 

4910 PRINT "{Y}OU a SHOULDN'T a STAY a HERE a VERY a LGNG."sTR=TR+ 1 srem 574 
4920 IF TR<=4 THEN 4940 srem 22042 

4930 PRINT "{Y)OU a ARE a VERY a COLD a AND a WET, a THAT'S"SPRINT "UNHEALTHY!I"s 
H(W)=H(W) -10 srem 26385 
4940 X2=OB%(X,3) srem 58165 

4950 IF NOT (NPO.l AND MT=1 AND T>=37 AND DD=0) THEN 4970 srem 3007 
4960 PRINT "{N)O a ONE a HAS a DUG a A a DEN a YET 1" srem 5702 
4970 IF NP<1 THEN 5030 srem 18444 
4980 IF PH<=10 THEN 5010 srem 19069 

4990 PRINT "(T)HE A PUPS a STARVED1 A (N)O a ONE a BROUGHT a FOOD." s 
OB%(DLf0)=33 srem 40532 
5000 OB%(DL/1)=0:NP=.1sGOTO 5030 srem 30328 

5010 IF PH>5 THEN PRINT "{T)HE a PUPS a ARE a VERY a HUNGRY 1"sGOTO 5030 srem 36372 
5020 IF PH>4 THEN PRINT "{T)HE a PUPS a ARE a GETTING a HUNGRY." srem 5601 
5030 IF X2=24 AND RND(1)>.3 THEN PRINT "{Y}OU a SMELL a SOMETHING a UNUSUAL" 
srem 18739 

5040 IF X2=21 OR X2=22 THEN PRINT "{T>HERE a ARE a SIGNS a OF a HUMANS!" srem 40978 
5050 IF X2O10 AND X2011 THEN 5080 srem 18009 




WOLF 


139 


5060 PRINT "{Y)OU a ARE a INTRUDING a IN*OTHER a WOLVES 1 " srem 5850 
5070 PRINT "TERRITORY. *{Y}OU^BETTERTURN a BACK 1" srem 60996 
5080 IF H(W)>=1 THEN 5110 :rem 14169 

5090 PRINT "{YJOUaAREaTOOaWEAKaANDaHUNGRYaTOaGOaQn..." sr em 36500 

5100 PRINT "{rvs-on}YOUAAREADEADl":H(W)»-99sOB%(X f O)=31:F(W)*l srem 52712 

5105 GOSUB 4860:GOSUB 6100;GOTO 800 srem 10223 

5110 IF H(W)<20 THEN PRINT "{Y}OUaAREaVERYaHUNGRY! "sGOTO 5130 srem 56554 
5120 IF H(W)<50 THEN PRINT " {Y}OUaAREaHUNGRY. " srem 32957 
5130 RETURN srem 46532 

5140 PRINT "{clr 2"down 3°right T}RYaUSINGaONEaWORDaCOMMANDSaLIKE" 
srem 16559 

5150 PRINT "{rvs-on>REST{rvs-off> f Atrvs-on}SLEEP{rvs-off} 
f aORaTWOaWORDaCOMMANDS" srem 58403 
5160 PRINT "SUCH aASa {rvs-on} AVOIDaHUNTER {rvs-off}, a {rvs-on} 
GETAMOUSE(rvs-offJ aOR" srem 36059 
5170 PRINT "{rvs-on>EATAFISH{rvs-off}.(2°down}" srem 13050 
5180 PRINT "{3°right}HEREAAREATHEAVERBSA{I>AKNOW...(down}" srem 41449 
5190 FOR 1=1 TO 34sIF LEFT$(V$(I),1)<>"*" THEN PRINT V$(I), srem 17397 
5200 NEXT IsPRINTsGOSUB 6100sPRINT "{clr}";sGOTO 910 srem 539 
5240 REM END srem 30740 

5250 PRINT "{clr 3°right I}TAlSANOWA{S}EPTEMBERAAGAIN{down}" srem 59898 
5260 PRINT "{3°right}THEAYEARAlSAOVER...ALET'SASEEAHOW"s 
PRINT "YOUAMADEAOUTs{down}" srem 55319 
5270 FOR 1=1 TO 5sPRINT Y$(I);"a"; srem 19638 
5280 IF H(I)<1 THEN PRINT "ISaDEAD." sGOTO 5300 srem 53384 
5290 PRINT "ISaSTILLaALIVE"sSC=SC+ 1 srem 36035 
5295 IF H(I)<20 THEN PRINT "BUTaVERYaWEAK"sSC=SC- 5 srem 60321 
5300 NEXT IsPRINTsIF NP<1 THEN NP=0 srem 48830 

5310 PRINT "{3°right T}HEaNUMBERaOFaPUPSaSURVIVINGaWAS";STR$ (NP); 

".{2°down}"sSC=SC+NP srem 60165 
5320 PRINT "{0}VERALL r aYOURaPERFORMANCEaASaA /v WOLFaPACK"s 
PRINT "WASa"; srem 46789 

5330 PRINT "{rvs-on}";sIF SC=0 THEN PRINT "TERRIBLE"sGOTO 5380 srem 26731 

5340 IF SC<5 THEN PRINT "POOR"sGOTO 5380 srem 57524 

5350 IF SC<6 THEN PRINT "FAIR"sGOTO 5380 srem 30101 

5360 IF SC<7 THEN PRINT "GOOD"sGOTO 5380 srem 42969 

5370 PRINT "EXCELLENT" srem 5366 

5380 PRINT "{rvs-off 2°down D}OAYOUAWANTATOATRYAAGAIN?A{grn}"; srem 10843 
5385 GOSUB 60000sIF LEFT$(IN$,1)="N" OR IN$="Q" THEN 5400 srem 38344 
5390 CLRsGOSUB 61000sRESTOREsGOTO 100 srem 26322 
5400 GOTO 60600 srem 2737 

6000 FOR ZZ=1 TO lOOOsNEXT ZZ:RETURN srem 4962 

6100 PRINT "{2°down blu P}RESSaANYaKEYaTOaPROCEED...{ pur}" srem 36992 

6105 GET A$sIF A$<>"“ THEN 6105 srem 17502 

6110 GET A$sIF A$="" THEN 6110 srem 29965 

6120 PRINT "{clr}";sRETURN srem 61696 

6200 GET A$sIF A$<>"" THEN 6200 srem 16771 

6205 PRINT "{grn}";sGOSUB 60000sPRINT "{pur}" srem 37881 

6210 IF LEFT$(IN$,1)="Q" THEN PRINT "{clr 3°right Y} 

OURaSTANDINGSaARE s{2°down}"sGOTO 5270 srem 12983 
6215 RETURN srem 8365 

6220 PRINT Y$(I); M A{rvs-on}HASADIED"sH(I)=-99sOB%(L%(I),0)=31sF(I)=l: 
RETURN srem 27499 


622 lines, proof number = 62099 




Important Variables in WOLFs 


HO Tracks the health and hunger of a given wolf "H" 
Eating raises H, time and injuries lower it 
BO Strength of the bond between wolves W1 and W2. 
Effects how well they will hunt together and also 
influences which males might mate with which 
females 

L%() Location of wolf on the map 
PH Level of hunger in the pups (if any) 


T%() Kind of terrain to be found at a specific row and 
column on the map 

PO() Possible objects that might be found at map 
location X,Y 

PPO Probability of finding object X at Y 

T Tiirn number, to determine when to change the 
season 


How WOLF Works 

100-770 Sets up map and initial conditions 

780-1210 Main loop: advances timer, calls for input 
and acts on known combinations of noun 
and verb 

1240-1380 Parser to match the input with the known 
vocabulary 

1400^-1620 Controls movement of wolves and updates 
location 


2040-2470 Evaluates outcome of hunting attempts 
2480-3860 Evaluates results of other actions such as 
dig, avoid 

3980-4030 Name the wolves 
4050-4420 Determines which wolves mate 
4730-4770 Places other animals or objects on the map 
4860-5130 Warns of dangerous conditions 
5250-5400 Evaluates your performance as a wolf 
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FERRY 


John Matarella 


I n FERRY, you try to transport supplies 
across the asteroid belt with a fleet of five 
spaceships. When you strike an asteroid, 
the ship is destroyed, and the next ship is 
launched. Use the joystick to move your ship 
either forward or backward. At the “easy” skill 
level, your ship is near the top of the screen, 


SCORE: 

: 1704 

VQU BLEW IT! 

: 1764. . SHIP # I 

TOTAL 

SO FAR: 




PRESS 

8UTT0M 

TO LftUHCH NEXT SHIP. 


which gives a better view of the dangers of the 
asteroid field. At the “medium” level your ship 
is near the middle of the screen, while the 
“hard” level puts you near the bottom, making 
it much more difficult to guide the ship through 
the asteroids. 


1 PG$="FERRY":AU$="JOHN^MATARELLA"sBG$="JOYSTICK^BUTTON" :rem 55093 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 01AUG84 
90 GOTO 62000 :rem 51784 
100 MS=2 :rem 12311 
110 ML-896 :rem 5743 
120 GOSUB 970 srem 14904 

130 DEF FNJ(X)=PEEK(JS) AND 15sDEF FNB(X)=PEEK(JS) AND 16 :rem 31401 

140 SP=2040sM=10sPX=7*8 :rem 56613 

150 DEF FNR(X)=INT(RND(1)*X+1) :rem 22831 

160 FOR Z=1 TO 100:NEXT Z srem 63918 

170 R=5:NS=5:PRINT "{clr}" srem 63312 

180 PR$="SKILL, s LEVEL?^EASY <K/ ,MEDIUM^HARD"sIN=2sJM=3sJT=14sJW=6 srem 14331 
190 GOSUB 60200 srem 51968 

200 R=IN*3sPOKE 251,MsPOKE 252,200 srem 42693 

210 SF=(R-l)/8*(MS-1)+1sDN=(IN-1)*PX srem 44684 

220 TD=0sW=0sYY=0sT=0 srem 24075 

230 P=26 srem 6243 

240 SS=P srem 7271 

250 PRINT "{clr yell” srem 53804 

260 GOSUB 960 srem 335 

270 POKE VIC,PsPOKE VIC+39,1sPOKE VIC+16,0sPOKE SP,13 srem 3385 
28C POKE VIC+1,101+DN srem 64354 

290 FOR 1=1 TO 24sPRINT TAB(FNR(37)+1); n .(up)"SPRINT TAB(FNR(37)+1);"s 
NEXT I srem 5723 
300 POKE VIC+21,1 srem 29233 
310 T=T+lsCC=0 srem 45911 

320 POKE SID+24,15sPOKE SID,0sPOKE SID+l,0sPOKE SID+2,0s 
POKE SID+3,8 srem 42032 

330 POKE SID+5,100sPOKE SID+6,100sPOKE SID+4,129 srem 32886 

340 CC=CC+1 srem 32413 

350 A=FNJ(0)sGOSUB 60500 srem 9273 

360 XX=2sIF A=ll OR A=7 THEN XX=10+P/7 srem 35064 
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370 POKE SID+1,XX srem 65003 

380 IF A=7 THEN P=P+MsSYS MLsGOTO 400 srem 62785 
390 IF A=ll AND POSS THEN P=P-M$SYS ML+17 srem 22972 
400 IF P>SS+290 THEN 500 srem 25591 

410 PRINT TAB(FNR(37)+1){up}"SPRINT TAB(FNR(37)+1);" srem 28582 
420 CO=PEEK(VIC+31)sIF CO=0 THEN 340 srem 10637 
430 POKE SID+1,0sPOKE SID+4 r 33 srem 37797 

440 PRINT "{home)";TAB(25);"{cyn}YOU A BLEW A ITl"SPRINT TAB(25) ; "SHIP*,#";T 
srem 6493 

450 FOR 1=205 TO 5 STEP -3 srem 18196 

460 POKE VIC+39,1 AND 15 srem 17119 

470 POKE SID+1,1 srem 22338 

480 NEXT I srem 33498 

490 GOTO 570 srem 11191 

500 XX=0 srem 35927 

510 PRINT "(home cyn>";TAB(25);"SUCCESS 1"SPRINT TAB(25);"SHIP A #";Ts 
POKE SID+4,65 srem 38982 

520 FOR Z=10 TO 250 STEP 3sPOKE SID+l,ZsNEXT Z srem 47832 

530 FOR Z=250 TO 20 STEP -2sPOKE SID+1,Z:NEXT Z srem 9194 

540 POKE SID+1,0 srem 5524 

550 POKE QL,24 srem 40285 

560 W=W+1 srem 49812 

570 POKE SID+1,0 srem 60983 

580 D=((P-SS)f2)/CC$TD=TD+DsGOSUB 950sPRINT "{homeJSCOREs";YY srem 57333 

590 D=TDsGOSUB 950sPRINT "TOTAL a SO a FARs";YY srem 30315 

600 PRINT "{home 23"down blu)PRESS ^BUTTON A TO A "; srem 8704 

610 IF T=NS THEN PRINT "SEE a SUMMARY." srem 4810 

620 IF T<NS THEN PRINT "LAUNCH A NEXT A SHIP." srem 29017 

630 GET Z$sIF Z$="Q" THEN 60600 srem 30029 

640 JB=FNB(0)sIF JB=16 THEN 630 srem 59790 

650 GOSUB 960 srem 10109 

660 IF T<NS THEN 230 srem 50074 

670 POKE VIC+21 f 0sPOKE SID+4,0 srem 43304 

680 PRINT "{clr cyn down}YOU A WERE A GIVEN";T;"SHIPS A TO A PILOT A TO" srem 22448 
690 PRINT "THE a ASTEROID a BASE. A ";W;"SHIP"; sIF WOl THEN 
PRINT "S"j srem 11560 
700 PRINT "^SURVIVED." srem 30422 
710 D=TDsGOSUB 950 srem 39984 
720 IF W=0 THEN GOSUB 800 srem 61639 

730 PRINT "{2°down yel}YOUR*SCORE=";TAB(15);YY srem 60623 
740 IF YY>HY THEN HY=YY srem 697 

750 PRINT "{down grn}HIGHEST A SCORE=";TAB(15);HY srem 2523 
760 PRINTsPRINT srem 1176 

770 PR$="PLAY a AGAIN? aa YES a NO"s IN=1 s JM=2 sJT=l2 s JW=4 s GOSUB 60200 srem 19271 
780 IF IN=1 THEN 220 srem 12133 
790 GOTO 60600 srem 17357 
800 RESTORE s Z=2.2 srem 38124 

810 PRINT "{down pur}WE a SHALL a NOW a HONOR a THOSE a COMPUTERS a THAT" srem 55587 
820 PRINT "GAVE a THEIR a LIVES a FOR a THE a TRAINING a OF" srem 14823 
830 PRINT "THIS A (AHEM...) A PILOT." srem 49783 
840 POKE SID+4,0 srem 14681 

850 READ C,DsIF C=-2 THEN POKE SID+4,0sRETURN srem 18328 
860 X=D(D)/Z srem 18217 

865 POKE SID,NL(C)sPOKE SID+1,NH(C) srem 46975 
870 POKE SID+4,33sFOR 1=1 TO XsNEXT I srem 7999 
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880 POKE SID+4,32 :rem 8373 
890 GOTO 850 :rem 20709 

910 DATA 1,3,1,1,2,5,1,3,2,1,3,5,1,3,2,1,3,2,1,3,2,1,3,2 :rem 20895 

920 DATA 1,3,2,1,3,5,2,3,3,1,4,4,3,2,2,2,1,5,1,3,1,1,2,5,-2 srem 25669 

950 YY=INT((D*SF)/(39*MS*NS)*1000)sRETURN :rem 10390 

960 POKE VIC,OsPOKE VIC+16,0sX=PEEK(VIC+31)sRETURN :rem 39973 

970 PRINT ”(clr wht}SETTING-UP.••" srem 30931 

980 READ V:IF VO-2 THEN 980 :rem 17144 

990 B=832sT=0 :rem 38232 

1000 READ V:IF V=-l THEN FOR Z=B+T TO B+63:POKE Z,0sNEXT: 

GOTO 1020 :rem 23681 

1010 POKE B+T,VsT=T+lsGOTO 1000 srem 24067 

1020 B«896:T=0 srem 16552 

1030 READ VsIF V=-l THEN 1045 srem 11385 

1040 POKE B+T,V:T=T+1sGOTO 1030 srem 14001 

1045 FOR Z=1 TO 5sREAD NL(Z),NH(Z),D(Z)sNEXT Z srem 6743 

1050 RETURN srem 47093 

1055 DATA 224,0,0,112,0,0,127,254,0,41,39,0,32,0,128,31,255,-1 srem 26791 
1060 DATA 166,251,32,171,3,238,0,208,208,3,238,16,208,202,208 srem 31698 
1070 DATA 242,96,166,251,32,171,3,56,173,0,208,233,1,141,0 srem 37905 
1080 DATA 208,173,16,208,233,0,141,16,208,202,208,233,96,164 srem 10848 
1090 DATA 252,234,234,234,234,234,234,136,208,247,96,-1 srem 15135 
1100 DATA 143,12,125,195,16,250,31,21,375,30,25,500,0,0,750 srem 43940 

157 lines, proof number = 64550 


Reminder. Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in FERRY 


A 

Current joystick value 

NS 

Number of ships at start of game 

CC 

Number or turns played on one space ship 

Sprite to background collision flag 

P 

Current X-coordinate of ship 

Scoring variable based on skill level 

CO 

SF 

D() 

Delay values for song 

SP 

Sprite pointers 

DN 

How far ship is moved towards bottom of screen 
based on skill level 

ss 

T 

X-coorainate for ship movement 

Ship number in use 

HY 

Current high score 

TD 

Scoring variable 

JB 

M 

Value of joystick button 

Movement rate of ship 

W 

Number of ships successfully flown across 
asteroid belt 

ML 

Base address of machine language 

XX 

Sound pitch for moving ship 

NH() 

High byte pitch values for song 

YY 

Current score 

NL() 

Low byte pitch values for song 

Z$ 

Current key press 


How FERRY Works 

100-220 Input skill level and initialize variables 

230-330 Reset sound and sprite position, increment 
number of ships used 

340-390 Main loop: read joystick position and move 
ship 

400-420 Scroll screen and add new asteroids, check 
for collision with ship 

430-490 Sound routine and message when ship hits 
an asteroid 


500-570 

580-660 

670-790 

800-940 

950 

960 

970-1100 


Sound routine and message for a successful 

crossing of asteroid belt 

Displays current score and ship number 

Ena of game messages 

Display memorial and play tune 

Compute score 

Reset collision flag 

Set up machine language and data for 
sprite movement and pattern 





KRYPTO 


Gary Marsa 


K RYPTO is a difficult math card game 
for one to three players. There are 52 
cards in the deck, with two sets of cards 
numbered from 0 to 25. Each player is dealt five 
cards, a card is turned over as the "target,” and 
the next card in the deck is shown. The object is 
to invent a mathematical expression contain¬ 
ing all the cards in your hand that yields the 
number on the target card. For example, if you 
have the cards 20,5,15,10, and 0, and the target 
is 0, you might choose the expression: 

20+5-15-10+0 

then press the RETURN key. KRYPTO checks 
your expression, and complains if it is wrong. If 
your expression is correct, the next person 
plays (or you get your next chance, if playing by 
yourself). 

You can discard one of your cards by entering 
a C when asked for your play. It will ask which 
card you want to get rid of, and replace that 
card with the card shown on the top of the deck. 
Each time you discard, play passes to the next 
player (unless you are playing a single-person 
game, naturally). To keep things moving along 



when more than one person is playing, there is 
a three-minute time limit for each move. If you 
haven't solved the puzzle within the allotted 
time, the next player gets to take a turn. How¬ 
ever, you can be thinking up your solution 
while the other players take their turns. 

Your math expression can use addition, sub¬ 
traction, multiplication, and division. As in 
BASIC, multiplication is shown with the as¬ 
terisk (" * ”) and division uses the slash ("/"). You 
may also use parentheses to control the order of 
evaluation. Normally, multiplication and divi¬ 
sion are done before addition and subtraction. 
As always in math, there must be an equal 
number of left and right parentheses. KRYPTO 
checks, and complains if they are mismatched. 
When you type in an expression, KRYPTO ob¬ 
jects if you try to use numbers that aren't in 
your hand. If you propose a valid expression 
that doesn’t produce the correct target result, 
the right expression will be shown, and play 
continues. When you want to end the game, 
press Q to quit. 

Note: KRYPTO uses sound. 


1 PG$="KRYPTO":AU$="GARY,.MARSA":BG$="RETURN" :rem 1592 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 01JUN84 ZIM 
90 GOTO 62000 :rem 51784 
100 GOTO 1140 :rem 4599 

110 S=0::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 

s s:s s :rem 2521 
120 RETURN :rem 65297 
130 TU=0:TI$=TT$ :rem 13570 

140 IN$="*," :ZT=TI :ZC=2 sZD$=CHR$(20) :rem 48822 
150 GET Z$:IF Z$<>"" THEN 210 :rem 18983 
160 IF TZ=0 THEN 190 :rem 40838 

170 TT$=TI$:F0R 1=1 TO 3sPOKE T(I),ASC(MIDS(TT$,1+3,1)):NEXT :rem 43970 
180 IF TT$>="000300" THEN PRINT "{home rvs-onJTIME'S*UP!":GOSUB 1620:TU=1: 
RETURN srem 9677 
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190 IF ZT<=TI THEN PRINT MID$(ZC,1) (left) :ZC=3-ZCt 
ZT=TI+15 :rem 62329 
200 GOTO 150 :rem 33829 

210 Z=ASC(Z$) :ZL=LEN (IN$) :IF (Z AND 127X32 OR Z=34 THEN PRINT "„{left}";t 
GOTO 250 :rem 15449 

220 IF FL AND (Z AND 127) >64 AND (Z AND 127X91 THEN Z$=CHR$((Z+128) AND 
255) trem 49409 

230 IF ZL>40 THEN 150 trem 49121 

240 IN$=IN$+Z$SPRINT Z$?ZD$;Z$; trem 61585 

250 IF Z=13 THEN IN$=MID$(IN$,2)sPRINT CR$;:TT$=TI$sRETURN :rem 46647 
260 IF Z=20 AND ZL>1 THEN IN$=LEFT$(IN$,ZL-1)tPRINT "(left)";: 

GOTO 150 :rem 4098 

270 IF Z=141 THEN Z$=CHR$(-20*(ZL>1))tFOR Z=2 TO ZLtPRINT Z$; tNEXT Z: 

GOTO 140 teem 15605 
280 GOTO 150 trem 6934 

290 PRINT "{clr rvs-on}SHUFFLING...*"tFOR 1=1 TO 52 trem 12976 
295 C$(I)=RIGHT$(STR$(INT((1-1)/2)) , 2 ) tNEXT trem 17224 
300 D=531FOR 1=1 TO 52tD=D-ltX=INT(D*RND(l)+1)tSC$(I)=C$(X)t 
C$(X)=C$(D) trem 31444 
310 NEXTtRETURN trem 53104 

320 PRINT "(clr 2°down)HOW < *MANY*PLAYERS, 1 (1-3) ?*"; tTZ=0t 
GOSUB 130 trem 55757 
325 IF IN$="Q" THEN 60600 trem 65250 

330 IF IN$="1" OR IN$="" THEN NP=ltN$(1)="YOU"tRETURN trem 21444 
340 NP=VAL(IN$)tIF NP<2 OR NP>3 THEN 320 trem 47259 
350 FOR 1=1 TO NPtPRINT "{down>PLAYER^#";CHR$(48+1);"'S„NAME„?„"; 
trem 63612 

360 TZ=0tGOSUB 130tIF IN$="" THEN PRINT "(3°up>" 1 1=1-1tNEXT trem 59938 
365 IF IN$="Q" THEN 60600 trem 34886 

370 N$(I)=IN$tIF LEN(N$(I))>7 THEN N$(I)=LEFT$(N$(I),7) trem 43642 
380 NEXTtRETURN trem 5404 

390 ER=0tL=0tR=0tLS=LEN(S$)tIF LS<9 THEN ER$="{home rvs-on}ERRORl{rvs-off 
5 0 space}"tER=ltRETURN trem 31335 
400 FOR T=1 TO 5tHH(P,T)=0tNEXT trem 7108 
410 FOR T=1 TO LStM=ASC(MID$(S$,T,l))tIF M=40 THEN L=L+lt 
GOTO 460 trem 8091 

420 IF M=41 THEN R=R+ltGOTO 460 trem 34988 
430 IF M=42 OR M=43 OR N=45 THEN 470 trem 1143 
440 IF M>46 AND H<58 THEN 470 trem 25442 

450 ER$="(home rvs-on)ILLEGAL^CHARACTERt A "+CHR$(M)+"I"tER=lt 
RETURN trem 45104 
460 IF R>L THEN 480 trem 49427 
470 NEXT T trem 11764 

480 IF LOR THEN ER$="{home rvs-on}PARENTHESES^ERRORl" tER=l t 
RETURN trem 56548 

490 S9=ASC(LEFT$(S$,1))tIF S9=41 OR S9=42 OR S9=43 OR S9=45 OR S9=47 THEN 
610 trem 56650 

500 FOR T=1 TO LS-1tM=ASC(MID$(S$,T f 1)):M1=ASC(MID$(S$ f T+l f l)) trem 8132 
510 IF M=40 AND (Ml=41 OR Ml=43 OR Ml=45 OR Ml=42 OR Ml=47) THEN 
610 trem 46135 

520 IF M=41 AND (Ml=40 OR (Ml>47 AND Ml<58)) THEN 610 trem 42868 
530 IF M=43 AND (Ml=41 OR Ml=43 OR Ml=45 OR Ml=42 OR Ml=47) THEN 
610 trem 705 

540 IF M=45 AND (Ml=41 OR Ml=43 OR Ml=45 OR Ml=42 OR Ml=47) THEN 
610 trem 30168 
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550 IF M=42 AND (Ml=41 OR Ml=43 OR Ml=45 OR Ml=42 OR Ml=47) THEN 
610 srem 59275 

560 IF M=47 AND (Ml=41 OR Ml=43 OR Ml=45 OR Ml=42 OR Ml=47) THEN 
610 :rem 37123 

570 IF (M>47 AND M<58) AND Ml=40 THEN 610 srem 64558 
580 NEXT T srem 25374 

590 S9=ASC(RIGHT?(S$,1)):IF S9=40 OR S9=43 OR S9=45 OR S9=42 OR S9=47 THEN 
610 srem 56852 
600 GOTO 620 srem 23357 

610 ER?="{home rvs-on)SXNTAX*ERRORl":ER=1sRETURN srem 42363 

620 NH-OsFOR T=1 TO LSsM=ASC(MID?(S?,T,1))sIF M<48 THEN 710 srem 28147 

630 V=M-48sIF T>=LS THEN 680 srem 45508 

640 M1=ASC(MID?(S?,T+1,1))sIF Ml<48 THEN 660 srem 35537 

650 V=10*V+(Ml-48)sT-T+1 srem 39803 

660 IF T>=LS THEN 680 srem 834 

670 IF V>9 AND VAL(MID?(S?,T+1,1))>0 THEN 715 srem 8159 
680 NH=NH+1sFOR U=1 TO 5sIF HH(P,U) THEN 700 srem 62899 
690 IF V=VAL(H?(P,U)) THEN HH(P,U)=-lsGOTO 710 srem 13987 
700 NEXT UsGOTO 720 srem 21394 
710 NEXT TsIF NH=5 THEN RETURN srem 56572 

715 ER?=" (home rvs-on}INCORRECT^NUMBER^OF^CARDS 1" sER=l : RETURN srem 6583 
720 ER?=" (home rvs-on)THE"+STR? (V) +"«CARD*IS«NOT„IN < .HANDl " sER=l s 
RETURN srem 33480 

730 C=1sFOR J=1 TO 5sFOR 1=1 TO NPsH?(I,J)=SC?<C)sC=C+lsNEXTsNEXTs 
RETURN srem 33372 

740 FOR J=1 TO 5SPRINT "{blk A 2°* S down 4°left - C£n}";H?(I,J);"{blk - 
down 4°left Z 2°* X right 2°up}";sNEXTsRETURN srem 39462 
750 FOR 1=1 TO NPsPRINT LEFT?(CU?,9+4*1);TAB<8-LEN(N?(I)));"{blu down)"; 

N?(I);"t cyn up}"; srem 26880 

760 PRINT TAB(9) ? sGOSUB 740sIF NP=1 THEN PRINTsGOTO 780 srem 39252 
770 PRINT "(down c^nJWON(down 3°left>";W(I) srem 55417 
7 80 NEXTsRETURN srem 43894 

790 PRINT "(home)";sFOR A=1 TO LN srem 25469 
800 PRINT "{39°space}";sNEXTsRETURN srem 31385 

810 PRINT "tclr blk 6°down}";SPRINT "{A)";sFOR Z=1 TO 13SPRINT "(C}";s 
NEXTsPRINT "{R}"; srem 17305 

820 FOR Z=1 TO llsPRINT "{C}";sNEXTsPRINT "{R}"; srem 18962 

830 FOR Z=1 TO llsPRINT n {C}";sNEXTsPRINT "(S}"; srem 60692 

840 FOR 1=1 TO (5+4*NP)-IsPRINT "(down left -}";sNEXT srem 16813 

850 PRINT "(down left X}"; srem 24301 

860 FOR 1=1 TO 37sPRINT "{2°left C}";sNEXTsPRINT "{2°left Z} rt ;s 
PRINT "{up left}"; srem 44412 

870 FOR 1=1 TO (5+4*NP)-lSPRINT "{- up left}";sNEXTsPRINT "{A up left}"; 
srem 65059 

880 FOR 1=1 TO NPsPRINT LEFT?(CU?,8+4*1); srem 6187 
890 PRINT "{Q 37°C W)"sNEXTsRETURN srem 52442 

900 TA?="{D 2°^ F down 4°left rvs-on K)"+SC?(C)+"{rvs-off K down 4°left C 
rvs-on 2°I rvs-off V}"sTA=VAL(SC?(C)) srem 30777 
910 TB?="{A 2°* S down 4°left -}"+SC?(C)+"{- down 4°left Z 2°* X}" 
srem 53389 

920 PRINT "{blk home 6°down)";SPC(14);"{R down left - down left - down 
left - down left - down left E 5°up}"; srem 43112 
930 PRINT SPC(ll);"{R down left - down left - down left - down-left - 
down left E}"; srem 23382 
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940 PRINT LEFT? (CU?,10) ;TAB(2) "{ cyn )TARGET";TAB(16) "DECK";TAB(28) 
"TIME^0:00" :rem 10558 

950 PRINT "{wht)";:FOR 1=1 TO 5:PRINT LEFT?(CU?,9);TAB(9);"(red)";TB$ 

:rem 15419 

955 FOR T=1 TO 200:NEXT :rem 23097 

960 PRINT LEFT?(CU?,9);TAB(9);"(red>";TA?:FOR T=1 TO 200:NEXT T: 

NEXT I :rem 52864 

980 C=C+1:PRINT LEFT? (CU? f 9);TAB(21);"(wht A 2°* S down 4°left - cyn )"; 

SC?(C);"(wht - down 4°left Z 2°* X}" :rem 31655 
990 PRINT "tblk)"{RETURN :rem 12750 

1000 PRINT "(home 4°down>DISCARD JfHICH,, CARD? (8° space 7°left>";:GOSUB 130: 

DC?=IN? :rem 56958 
1010 IF IN?<>"" THEN 1030 :rem 3764 

1020 PRINT "{2°up>" CR? "(38°space)":GOTO 1230 :rem 47808 

1030 FOR T=1 TO 5:IF VAL(H?(P,T))=VAL(DC?) THEN D=T:GOTO 1050 :rem 20211 

1040 NEXT:GOTO 1000 :rem 34503 

1050 H?(P,D)=SC?(C):GOSOB 980:GOSOB 750:GOTO 1380 :rem 35690 
1060 POKE BP+1,48:FOR X=2 TO 73:POKE BP+X,58:NEXT:RETURN :rem 670 
1070 GOSUB 1060:FOR X=1 TO LEW(S?):M=ASC(MID?(S?,X,1)):IF H=43 THEN 
M=170 :cem 40066 

1080 IF M=45 THEN M=171 :rem 62153 
1090 IF M=42 THEN M=172 :rem 11441 
1100 IF M=47 THEN H=173 :rem 23709 
1110 POKE BP+X,M:NEXT:RETURN :rem 46464 
1120 PRINT ”(red)";ER?:GOSUB 1580 :rem 13630 
1125 FOR DE=1 TO 550:NEXT :rem 60867 
1130 PRINT "(blk home 26"space}":RETURN :rem 12695 
1140 DIM C?<52),SC?(53),N?<3),H?<3,5),HH(3,5),W(3),T(3):GOSUB 1510: 
X=RND(-TI) :rem 11913 

1150 POKE VIC+32,14:POKE VIC+33,15:GOSUB 1550:PRINT "(clr c^n}" :rem 53616 
1160 CU?="(home 24°down>" :rem 10697 

1165 FOR T»0 TO 5:READ Y:POKE 820+T,Y:NEXT:DATA 142,59,3,76,6,169 
:rem 20105 

1170 T(l)=CRT+9*WD+33:T(2)=CRT+9*WD+35:T(3)=CRT+9*WD+36 :rem 28542 
1180 FOR 1=1 TO NP:W(I)=0:NEXT:TT?="000000":GOSUB 320 :rem 33881 
1190 GOSUB 290:GOSUB 730:GOSUB 810:GOSUB 750:GOSUB 900 :rem 18386 
1200 FOR P=1 TO NP:LN=6:GOSUB 790 :rem 60771 
1210 TT?="000000" :rem 55993 

1220 IF NP>1 THEN PRINT "(home 2°down cyn }IT' S < >";N? (P) "'SATURN." 

:rem 23750 

1230 PRINT "(home 4°down cyn }YOUR <> PLAY? A "; :TZ=1:IF NP=1 THEN 
TZ=0 :rem 34990 

1240 GOSUB 130:IF TU THEN FOR DL=1 TO 2000:NEXT:GOTO 1380 :rem 59006 

1250 S?=IN?:IF S?="C" THEN 1000 :rem 33803 

1260 IF S?="Q" THEN 1410 :rem 5241 

1270 PRINT "(homeJCHECKING...":GOSUB 390 :rem 58956 

1280 IF ER THEN GOSUB 1120:LN=6:GOSUB 790:GOTO 1220 :rem 53895 

1290 GOTO 1670LN=6:GOSUB 790 :rem 409 

1300 LN=6:GOSUB 790:PRINT "(home>";S?;" A =" S:IF S=TA THEN 1340 :rem 40997 
1310 PRINT "(home 2°down>SORRY,:IF NP=1 THEN PRINT "THAT'S^INCORRECT.": 
GOTO 1330 :rem 14781 

1320 PRINT N?(P);",*THAT'INCORRECT." srem 48083 
1330 FOR DL=1 TO 1500:NEXT DL:GOTO 1380 :rem 28695 
1340 PRINT "(home down)YOU*GOT*ITl■ :rem 21113 
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1350 PRINT "CONGRATULATIONS";sIF NP=1 THEN PRINT "l"sGOTO 1370 :rem 24638 
1360 PRINT ", A ";N$(P);"1" srem 45347 
1370 W(P)=W(P)+1:GOTO 1390 srem 48451 
1380 NEXT PsGOTO 1200 srem 16428 

1390 PRINT "WANT a TO a PLAY a AGAIN? a "jsTZ=0sGOSUB 130 srem 41430 
1400 IF IN$="" OR LEFT$(IN$,1)="Y" THEN 1480 srem 37132 
1410 PRINT "{clr}"sIF NP=1 THEN 1470 srem 35177 

1420 FOR X=1 TO NP-lsFOR Y=X TO NPsIF W(X)>=W(Y) THEN 1440 srem 10036 
1430 T=W(X)sT$=N$(X)sW(X)=W(Y)sN$(X)=N$(Y)sW(Y)=TsN$(Y)=T$ srem 27222 
1440 NEXTsNEXT srem 51489 

1450 PRINT "{2°down>FINAL A STANDINGS{2°down}"sFOR 1=1 TO NPs 
PRINT N$(I),W(I)sPRINTsNEXT srem 27976 
1460 FOR DE=1 TO 800sNEXT DE srem 59753 
1470 GOSUB 1060sGOTO 60600 srem 63525 
1480 IF NP=1 THEN 1190 srem 15997 
1490 T$=N$(1)sT=W(l)sFOR 1=2 TO NP srem 58219 

1500 N$(1-1)=N$(I)sW(I-l)=W(I)sNEXTsN$(NP)=T$sW(NP)=TsGOTO 1190 srem 10407 
1510 BP=PEEK(43)+256*PEEK(44) srem 35874 

1520 IF PEEK(BP+2)+256*PEEK(BP+3)=110 THEN BP=BP+5sRETURN srem 27094 

1530 BP=PEEK(BP)+256*PEEK(BP+1) sIF BPOO THEN 1520 srem 63897 

1540 PRINT "NO A LINE A 110l"sSTOP srem 740 

1550 POKE SID,50sPOKE SID+1,4 srem 24006 

1560 POKE SID+5,45sPOKE SID+6,165 srem 9177 

1570 POKE SID+24,15sPOKE SID+4,0sRETURN srem 14769 

1580 POKE SID+4,33 srem 53565 

1590 FOR DE=1 TO 200sNEXT DE srem 38206 

1600 POKE SID+4,32 srem 39945 

1610 RETURN srem,61184 

1620 POKE SID,135sPOKE SID+1,33 srem 4102 
1640 POKE SID+4,33sFOR DE=1 TO 60:NEXT DE srem 971 
1650 POKE SID+4,32 srem 44652 
1660 GOSUB 1550 sRETURN srem 56052 

1670 GOSUB 1070sT=PEEK(768)sY=PEEK(769)sPOKE 768,52sPOKE 769,3s 
POKE 808,239 srem 46868 

1675 POKE 827,0sGOSUB HOsPOKE 768,TsPOKE 769,YsT=PEEK(827) s 
POKE 808,237 srem 24153 
1680 IF T=0 THEN 1300 srem 33944 

1690 IF T=20 THEN ER$="(home rvs~on)DIVISION A BY A ZERO A ERRORI"sER=ls 
GOTO 1280 srem 65117 
1700 GOSUB 610sGOTO 1280 srem 58887 

223 lines, proof number = 18250 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 
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Important Variables in KRYPTO 

BP Pointer to Start of BASIC text memory storage 
C$() Cards in deck 

DC$ Response to “Discard which card?” 

H$() Character codes for cards in hand 
HH() Cards player is holding 
L Counter to check parentheses 

LN Number of blank lines to print 

M ASCII values of characters for the equation 
N$0 Names of the players 
NP Number of players 

P Number of the current player playing 

R Counter to end parenthesis check 

S Address of expression evaluation statement 


S$ Current equation or “C” to discard a card 
S9 ASCII value of first and last character in 
equation 

SC$() Available cards in deck 
TO Screen memory locations for the cards in each 
player's hand 

TA Value of current card 
TA$ Cursor control to toggle flashing of target 
number 

TU Flag for time-up 

TZ Flag for timed input 

WO Number of times a player has won 


How KRYPTO Works 


110-120 Evaluates the player's expression. The 

expression will be put here so BASIC can 
evaluate it. (Tricky, indeed!) 

130-280 Modified input routine with optional timer 
290-310 Shuffle cards 

320-380 Get the number of players and their names 
390-480 Check string length, illegal characters, and 
parentheses count 
490-610 Check for syntax errors 

620-720 See if any cards are missing, or if an illegal 
number of cards were used. 

730 Deal cards 

740 Display a selected card 

750-780 Highlight present player's status 

790-800 Print some blank lines 


810-890 

900-990 

1000-1050 

1060-1110 

1120-1130 

1140-1190 

1200-1380 

1390-1500 

1510-1540 

1550-1570 

1590-1610 

1620-1660 

1670-1700 


Print game board 

Display target card and card next on deck 

Discard routine 

Store equation into line 110 

Print error message 

Initialize variables and arrays 

Main loop of player turns. Accept 

equations, evaluate, and display results 

Print “Play again?” and final standings 

Set pointers for memory area for BASIC 

evaluation of equation 

Initialize souna 

Buzzer sound for error routine 

Sound for time up 

Check for division by zero 



RECIPE 


Nancy Rhodes 


R ECIPE helps you convert recipes to 
serve smaller or larger groups. You’ll 
especially appreciate RECIPE if you 
are cooking for an army and the recipe serves 
two, or you're cooking for two and the recipe 
serves an army! When it converts a recipe to 
serve more or fewer people, RECIPE uses 
built-in knowledge of conversion units and 
fractions. Enter each ingredient with the quan¬ 
tity first, using either a whole number or a 
number and a fraction (no decimals, though). 


TITLE OF RECIPE? 60LETA GUMBO 
PLEftSE ENTER RECIPE AS: 
QUANTITY UNIT INGREDIENT 
EXAMPLE: 1 i/2 CUP MILK 

THE 


Next, type the unit, such as cup, oz., tsps., and 
so on, and then the ingredient. Type each ingre¬ 
dient on a new line, and end the recipe by press¬ 
ing RETURN. After you enter the recipe, when 
it asks "MAKE OR SERVE?" enter the number 
of people, or the amount. For example, you 
might type 2 people or 4 quarts. When it prints 
the new recipe, it will say "MAKES/SERVES" 
followed by the number or quantity you re¬ 
quested. 


1 PG$="RECIPE":AU$="NANCY^RHODES":BG$="RETURN" :rem 53710 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 26JUL84 
90 GOTO 62000 :rem 51784 

100 LU=0:MI=20:MW=20:DIM RE$(MI),WD$(MW) :rem 37087 

105 PRINT "Cclr whtlSETTING^UP.*." :rem 23367 

110 READ L$,D:IF L$<>"END" THEN LU=LU+l:GOTO 110 srem 4480 

120 DIM LU$(LU),LC(LU): :rem 42282 

130 DU=0 :rem 18744 

140 READ L$,D:IF L$<>"END" THEN DU=DU+l:GOTO 140: srem 59298 
150 DIM DU$(DU),DC(DU) srem 575 
16D LI=0 srem 51466 

170 READ L$:IF L$<>"END" THEN LI=LI+l:GOTO 170 srem 27469 
180 DIM LI$(LI) srem 65393 

190 N=0sREAD N,D:IF NOO THEN NF=NF+l:GOTO 190 srem 4914 
200 NF=NF+2:DIM FR$(NF),FR(NF) srem 20382 
210 AU=0 srem 50166 

220 READ L$:IF L$<>"END" THEN AU=AU+l:GOTO 220 srem 30500 
230 DIM AU$(AU) srem 1009 
240 RESTORE srem 61331 

250 FOR 1=1 TO LUsREAD LU$(I),LC(I)sNEXT I srem 11201 

260 READ D$,D:FOR 1=1 TO DUsREAD DUS(I),DC(I)sNEXT I srem 48179 

270 READ D$,D:FOR 1=1 TO LIsREAD LI$(I)sNEXT I srem 41999 

280 READ D$:FOR 1=2 TO NF-1sREAD N,D:FR(I)=N/D srem 47535 

290 FR$(I)=MID$(STR$(N),2)+"/"+MID$(STR$(D),2) srem 61178 

300 NEXT I:FR$(1)="":FR$(NF)=""sFR(NF)=1 srem 54733 

310 READ N,D:FOR 1=1 TO AUsREAD AU$(I)sNEXT I srem 24162 

315 PRINT "IclrlTITLE^OF^RECIPE?*";sGOSUB 60000:TR$=IN$ srem 32897 

320 PRINT "{down}PLEASE„ENTER„RECIPE„ASs" srem 55233 
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330 PRINT "{down}QUANTITY*UNIT*INGREDIENT" :rem 38101 

340 PRINT "{down)EXAMPLE: *1*1/2*CUP*MILK{2°down)" srein 17181 

350 PRINT n PRESS*{rvs-on>RETURN{rvs-off}*WHEN*ALL*THE*INGREDIENTS" 

:rem 59004 

355 PRINT "HAVEaBEEN^ENTERED.{ down}" :rem 23263 

360 SC=1:B=0:CT=0:PO=0 srem 49961 

370 GOSUB 60000:IF IN$="" THEN 400 :rem 34254 

375 IP IN$="Q" THEN 60600 :rem 21272 

380 CT=CT+1:RE$(CT)=IN$:IF CT<MI THEN 370 :rem 21501 

390 PRINT "I*CAN'T*HANDLE*MORE*THAN";MI;"INGREDIENTS. " :rem 13450 

400 PRINT "{down}HOW*MUCH*DOES*THE*RECIPE" :rem 64506 

410 PRINT "MAKE*OR*SERVE?*"; :rem 63057 

420 GOSUB 60000:M=0:RE$(M)=IN$:GOSUB 570 srem 55075 

430 IF B»1 THEN B=0:ER$="NOTHING*ENTERED"sGOSUB 560:GOTO 430 srem 39648 
435 IF TT<1 THEN 400 srem 29030 
440 A=TT :rem 44562 

450 PRINT "{down}HOW*MUCH*DO*YOU*WANT*TO*MAKE?*"; srem 40173 
460 GOSUB 60000:M s 0:RE$(M)=IN$:GOSUB 570 :rem 42867 

470 IF B=1 THEN B»0:ER$="NOTHING*ENTERED"sGOSUB 560:GOTO 470 srem 43405 
480 MS$ a RE$(0) :SCALE< s TT/A :rem 11509 

490 PRINT "{down}WANT*TO*USE A THE*PRINTER?* n ; srem 48703 

500 GOSUB 60000:PRINT "{2°down}",* srein 60866 

505 IF IN$="Q" THEN 60600 :rem 58474 

510 IF LEFT$(IN$,1)="Y" THEN OPEN 4,4:PO=l :rem 46607 

520 IF LEFT$(IN$,1)<>"Y" THEN OPEN 4,3 :rem 31619 

525 IF PO=0 THEN PRINT "{clr down}" :rem 12783 

530 PRINT#4,TR$;:PRINT#4,CR$;:PRINT#4,CR$:M=0:RP=0 :rem 53864 

540 M=M+1:IF M>CT THEN 1560 :rem 12564 

550 GOSUB 570:GOTO 540 srem 59869 

560 GOSUB 1610 :rem 51596 

570 W“0:RE$=RE$(M):IF RE$="Q" THEN 60600 srein 10827 
580 IF LEN (RE$)>0‘THEN IF LEFT$(RE$,1)="*" THEN RE$=MID$(RE$,2)s 
GOTO 580 srem 24480 

590 IF W>«MW THEN ER$="TOO*MUCH*TEXT"sGOTO 560 srem 26260 

600 FOR I»1 TO LEN(RE$) srem 40695 

610 IF MID$(RE$, 1,1)0"*" THEN 650 srem 10889 

620 W=W+1sWD$(W)=LEFT$(RE$,1-1) srem 35765 

630 RE$=MID$(RE?,I+1) srem 64432 

640 GOTO 580 srem 19614 

650 NEXT I srem 22104 

660 W=W+1 :WD$ (W) *»RE$ srem 14253 

670 REM FIND QUANTITY srem 40450 

680 TT=0:FR=0:DIG=0 srem 61142 

690 FOR N a l TO W:R»0 srem 2855 

700 FOR K=1 TO LEN(WD$(N)) srem 45959 

710 T$ s MID$(WD$(N),K,1) srem 18248 

720 IF T$>="0" AND T$<="9" THEN 780 srem 30413 

730 IF T$="." THEN ER$®"NO*DECIMAL*ALLOWED"sGOTO 560 srem 37137 

740 IF T$="/" AND R>0 THEN ER$="TOO*MANY*SLASHES"sGOTO 560 srem 58064 

750 IF T$="/ n THEN R=KsGOTO 780 srem 24415 

760 IF K>1 THEN ER$="CONFUSlNG*NUMBER" sGOTO 560 srem 64231 

770 GOTO 860 srem 37971 

780 NEXT K srem 63301 

790 IF R=0 THEN IF DIG=0 AND FR=0 THEN X=VAL(WD$(N)):DIG=1: 

GOTO 850 srem 62142 
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800 IP R=0 THEN ER$="CONFUSING..NUMBER":GOTO 560 srem 49028 
810 IF R=1 OR R=LEN<WD$(N)) THEN ER$="CONFUSING ..NUMBER" s 
GOTO 560 srem 49252 

820 IF FROO THEN ER$="TOO a MANY..FRACTIONS" sGOTO 560 srem 4259 

830 X=VAL(LEFT$(WD$(N),R-l))/VAL(MID$(WD$(N), R+l))sFR=l srem 4872 

840 IF X>=1 THEN ER$=™FRACTION ..TOO..LARGE" sGOTO 560 srem 40978 

850 TT=TT+XsNEXT N srem 16660 

860 IF FR=0 AND DIG=0 THEN TT=lsB=l srem 18271 

870 TT=TT*SCALE srem 27686 

880 IF M=0 AND N>W THEN RETURN srem 2715 

890 IF N>W THEN ER$="NO*UNIT"sGOTO 560 srem 27362 

900 REM CHECK TYPE srem 33795 

910 IF M=0 THEN 1020 srem 36010 

920 FOR I=W TO N STEP -1 srem 45674 

930 FOR J=1 TO LI srem 64166 

940 IF WD$(I)=LI$(J) THEN 1020 srem 38171 

950 NEXT JsNEXT I srem 55818 

960 FOR I=N TO W srem 3424 

970 FOR J=1 TO DU srem 53773 

980 Q$=WD$(I)sZ$=DU$(J) srem 26913 

990 IF Q$OZ$ AND Q$OZ$+"." AND Q$OZ$+"S" AND Q$OZ$+"S. " THEN 
1010 srem 38158 

1000 TT=TT*DC(J)sFW=I+lsGOTO 1170 srem 59218 
1010 NEXT JsNEXT IsGOTO 1080 srem 43204 
1020 FOR I=N TO WsFOR J=1 TO LU srem 37040 
1030 Q$=WD$(I)sZ$=LU$(J) srem 54216 

1040 IF Q$OZ$ AND Q$OZ$+"." AND Q$OZ$ + "S" AND Q$OZ$+"S. " THEN 
1060 srem 38436 

1050 TT=TT*LC(J)sFW=I+lsGOTO 1130 srem 17539 
1060 NEXT JsNEXT I srem 59694 
1070 REM ARB srem 11780 

1080 FOR I=N TO WsFOR J=1 TO AUsIF WD$(I)=AU$(J) THEN 
TT=-INT(-TT) srem 50820 
1090 NEXT J,I srem 59145 
1100 UNIT$="" srem 48008 
1110 FW=NsTEMP=TTsGOTO 1210 srem 51341 
1120 OJ=0 srem 50014 
1130 FOR J=LU TO 1 STEP -1 srem 11282 

1140 UNIT$=LU$(J)sTEMP=TT/LC(J)sIF TEMP>=1 THEN 1210 srem 11664 

1150 IF LC(J) OLC(OJ) THEN OJ=J srem 8174 

1160 NEXT JsUNIT$=LU$(OJ)sGOTO 1210 srem 22913 

1170 QJ=0sFOR J=DU TO 1 STEP -1$TEMP=TT/DC(J) srem 57937 

1180 UNIT$-DU$(J)sIF TEMP>®1 THEN 1210 srem 4289 

1190 IF DC (J) ODC (OJ) THEN OJ=J srem 54346 

1200 NEXT JsUNIT$=DU$(OJ) srem 59932 

1210 IF M=0 THEN RETURN srem 33217 

1220 IF FW>W THEN ER$="NO*INGREDIENT"sGOTO 560 srem 34094 
1230 N=TEMPsI=INT(N)sT=N-I srem 4478 
1240 FOR J»1 TO NF-1 srem 38593 

1250 IF (FR(J)<=T) AND (T<FR(J+1)) THEN 1280 srem 8488 
1260 NEXT J srem 38673 
1270 STOP srem 35657 

1280 IF ABS(FR(J)-T)>ABS(FR(J+l)-T) THEN J=J+1 srem 65137 
1290 IF FR$(J)THEN I=I+FR(J) srem 64200 
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1300 FR?=FR?(J) JlP IOO OR FR?="" THEN FR?=MID? (STR$ (I) ,2) +" A "+FR? 
srem 16444 

1310 IF RIGHT?CFR?,1) ="a" THEN FR?=LEFT?(FR?,LEN(FR$)-1) srem 4619 
1320 IF UNIT?<>"" AND TEMP>1 THEN UNIT?=UNIT?+"S" srem 10481 
1330 PRINT#4 ,FR?;"a"; sIF LEN(FR?)<7 THEN PRINT#4 r SPC(7-LEN(FR$)); 
srem 59940 

1340 PRINT#4,UNIT?;sIF LEN(UNIT?)<5 THEN PRINT#4 f SPC(5-LEN(UNIT$)); 
srem 48432 

1350 FOR N=FW TO WsPRINT#4 ,"a" jWD?(N);sNEXT N sPRINT#4$RETURN srem 3944 
1360 REM LIQUID UNITS srem 20485 

1370 DATA T,1,TEASPN,1,TEASPOON,1,TSP,1 srem 33270 

1380 DATA OUNCE,3,OZ,3,TBLSP,3,TABLESPN,3,TABLESPOON,3,TBSP,3,C,24 
srem 3109 

1390 DATA CP, 24, CUP, 24, P, 48, PNT, 48, PINT, 48, PT, 48, QU, 96, QUART, 96, QT, 96 

srem 59719 

1400 DATA G,384,GALLON,384,GAL,384 srem 34432 
1410 DATA END,2 srem 50751 
1420 REM DRY UNITS srem 35845 

1430 DATA T,1,TSPOON,1,TEASP,1,TEASPOON,1,TSP,1 srem 2464 
1440 DATA TBLSP,3,TABLESPN,3,TABLESPOON,3,TBSP,3 srem 43681 
1450 DATA C,24,CP,24,CUP,24,END,5 srem 28637 
1460 REM KNOWN LIQUIDS srem 46085 

1470 DATA EXTRACT,MILK,WATER,OIL,JUICE,GALLON srem 5256 
1480 DATA VINEGAR,WINE,SHERRY,BRANDY,LIQUER srem 28684 
1490 DATA COFFEE,CIDER,SYRUP,HONEY,MOLASSES srem 35095 

1500 DATA CREAM,BUTTERMILK,PINT,PINTS,GALLONS,SHOT,SHOTS,PT.,GAL srem 10363 

1510 DATA QT,QTS,QT.,QTS.,END srem 54196 

1520 REM KNOWN FRACTIONS X,Y,==X/Y srem 61445 

1530 DATA 1,8,1,4,1,3,1,2,2,3,3,4,0,0 srem 364 

1540 REM INDIVISIBLE ARBITRARY UNITS srem 1030 

1550 DATA EGG,EGGS,DROP,DROPS,PINCH,PINCHES,PINCHS,END srem 14915 
1560 PRINT#4sPRINT#4,"MAKES/SERVES A ">MS? srem 5043 
1570 IF RPOl AND POOl THEN 1590 srem 9790 
1580 PRINT " {down }WANT A TO*SEE A THE^NEW^RECIPE a AGAIN?<*"; s 
GOSUB 60000 srem 24945 

1585 IF LEFT?(IN?,1)="Y" THEN PRINT#4sPRINT#4sGOTO 525 srem 44256 

1590 CLOSE 4SPRINT "{down}ANOTHERARECIPE?A n ;sGOSUB 60000 srem 49503 

1595 IF IN?»"Q" THEN 1605 srem 35310 

1600 IF LEFT?(IN?,1)<>"N" THEN 315 srem 51680 

1605 GOTO 60600 srem 57070 

1610 PRINT "{down}";ER?; "aINaTHISaLINEs (down>"sPRINT RE?(M) srem 47806 
1620 PRINT "{downJPLEASEARE-ENTERAlT..."sPRINT "(down)?"; srem 27233 
1630 RP=1 srem 58840 

1640 GOSUB 60000sPRINT "{down}” srem 64283 

1650 IF IN?="" THEN PRINT "PLEASEaTYPEaIT a AGAIN "sPRINT "{down}?"8 
GOTO 1640 srem 7875 
1660 RE?(M)=IN? srem 6949 
1670 RETURN srem 63424 


224 lines, proof number = 15148 
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Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in RECIPE 

A Amount of people original recipe served 

AU Number of arbitrary units known 

AU$0 Names of arbitrary units 

CT Counter for number of recipe lines 

DC() Base units for each dry unit 

DU Number of dry units known 

DU$ Name of dry units 

ER$ Error messages 

FR Flag if a fraction is encountered 

FR$0 Strings for fractions 

FR() Values of known fractions 

LC() Base units for each liquid unit 

LI Number of known liquids 

LI$0 Names of liquids 

LU Number of liquid units known 


LU$0 Names of liquid units 

M Pointer to current line of recipe 

MI Maximum number of ingredients 

MS$ Amount new recipe makes/serves 

MW Maximum number of words per line of entry 

NF Number of known fractions 

PO Flag if printer is used 

R Position marker for line-splitting routine 

RE$0 Storage for recipe being entered 

RP Flag for changes made 

SC Ratio of old recipe to new recipe 

TT Total quantity from line of recipe 

UNIT$Name of current unit ingredient 

W Current number of words in line of recipe 

WD$() Storage for individual words from recipe 


How RECIPE Works 

100-310 Initialize variables 

315-390 Input original recipe 

400-480 Input number of servings for original and 

new recipe 

490-525 Ask if printer is to be used 

530-550 Main loop: calls conversion routine for each 
line of recipe 

560-660 Splits a single line from recipe into 

separate words 

670-890 Compute quantity of ingredient from a 

single line of recipe 


900-1090 Check ingredient from single line of recipe 

with known ingredients 

1100-1270 Convert original amount of one ingredient 
into amount for new recipe 
1280-1350 Print single converted line of new recipe 
1360-1550 Data for known ingredients and 
measurements 
1560-1605 End of recipe 

1610-1670 Routine to print error message and input a 
line again 




ENIGMA 


Should I set up the Machine? y 
Here are the wheels and settings: 
<you'U need 's» to decode the Message) 


Alex Breed 


W ith ENIGMA, you can encipher and 
decipher messages using exactly the 
same technique used by Germany in 
World War II. Early in the war, British intelli¬ 
gence was able to analyze a German "Enigma” 
code machine smuggled out of Poland. Once 
they cracked the code, many highly sensitive 
German radio messages were decoded, giving 
the Allied forces a tremendous advantage. 
Now, through the magic of inexpensive home 
computers, you are able to experiment with an 
encryption system that produces very secure 
ciphers. 

When you run ENIGMA, it asks if you want it 
to set up the machine. If you say "yes," it will 
select code wheels and settings for the three 
slots, and will tell you what settings were used. 
Next, type your message, pressing RETURN 
after each line. To end the message, press RE¬ 
TURN on a line by itself. ENIGMA will print the 
encoded text in groups of five characters. A lim¬ 
itation of the process is that only letters are 
encoded; numbers, punctuation, and spaces 


Wheel Setting 

1 a u 

?. e w 

3 b n 

Please enter your nessege. 

Enter a blank line when done. 
? the shu ,s bliiO 

7 

The encryption follows... 

3 * 3 ? bl. runuil Mliqo 
Another Message? 


are thrown away. To make the message harder 
to "break,” the final result is always a multiple 
of five letters long. This means that some mean¬ 
ingless characters may be tagged on to the end 
of your message. 

After you type a "clear text” message and see 
the coded results, it is fun to feed the encoded 
text back in, and see ENIGMA reverse the pro¬ 
cess. It will be somewhat harder to read, due to 
the missing spaces between words and the lack 
of punctuation. If you want to send coded mes¬ 
sages to a friend who also has a Commodore 64 
and this program, the other person will be able 
to decode your messages if he has the wheels 
and settings for the three slots. As long as the 
settings are protected, the message is very dif¬ 
ficult to break. Of course, you could use 
ENIGMA to encode the settings too, using a 
simple setup that you are certain you can re¬ 
member. But as soon as the settings are written 
down, the entire system is only as good as the 
protection you give the settings. 


1 PG$= ,, ENIGMA":AU$="ALEX*BREED n sBG$="RETURN" srem 62067 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 25JUL84 
90 GOTO 62000 teem 51784 
100 CT=50sDIM CT$(CT),X%(5,26) srem 52579 
110 POKE VIC+24,23 srem 54432 

120 DATA 4,16,15,19,8,3,25,6,13,1,7,26,20,10,12,9,14,17,22,2,24,23,21,5, 
18,11 srem 42787 

130 DATA 1,23,9,24,25,2,7,18,26,4,13,15,20,17,10,8,5,3,14,22,16,12,21,11, 
6,19 :rem 64889 

140 DATA 1,8,2,20,3,14,4,19,5,26,6,17,7,22,9,16,10,23,11,21,12,25,13,15, 

18.24 :rem 21750 

150 DATA 1,3,2,5,4,18,6,16,7,26,8,19,9,11,10,24,12,15,13,22,14,23,17,20, 

21.25 :rem 20860 

160 DATA 1,6,2,22,3,12,4,11,5,20,7,16,8,24,9,13,10,17,14,25,15,26,18,23, 
19,21 :rem 28164 
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170 X=RND(-TI) irem 21131 

180 PRINT "{clr wht down SE 2°T ING> A {UP}..." srem 36612 

190 RESTORE :rem 18073 

200 FOR W=1 TO 5 :rem 14728 

210 FOR K=1 TO 13:READ X,Y srem 49811 

220 X%(W,X)=YsX%(W,Y)=X :cem 65250 

230 NEXT K:NEXT W srem 26571 

240 PRINT "{clr)"; srem 10395 

250 PR$="(SJHOULD^(I} a SET a UP a THE a MACHINE":DF$="N" sGOSUB 910 srem 21632 
260 IF LEFT$(IN$,1)="Y" THEN GOSUB 810:GOTO 460 srem 12569 
270 T$="ABCDE" srem 64301 
280 FOR K=1 TO 3 srem 361 

290 PRINT "(down W}HICH A WHEEL A IN A SLOT" K "(";T$;")? A ";s 
GOSUB 60000 srem 24621 

300 IF LEN(IN$)<>1 THEN PRINT "{down 0}NE A LETTER, A PLEASE."s 
GOTO 290 stem 36515 

310 IF IN$>="A" AND IN$<="E" THEN 330 srem 9405 

320 PRINT "{down A) A LETTER A FROM A 'A' A TO A 'E' , ^PLEASE."sGOTO 290 srem 23211 
330 T=ASC(IN$)-64 srem 50171 

340 IF MID$(T$,T,1)=" A " THEN PRINT "{down W}HEEL A ";IN$; 

" a IS a ALREADY a TAKEN."sGOTO 290 srem 31782 
350 U$=""sIF T>1 THEN U$=U$+LEFT$(T$,T-1) srem 62119 
360 T$=U$+" A "+MID$(T$,T+1) srem 65488 
370 W$(K)=IN$sW(K) =T srem 11353 
380 NEXT K srem 57182 
390 FOR K=1 TO 3 srem 20334 

400 PRINT "{down S}ETTING A FOR A WHEEL" K "(A-Z)? a "; srem 15108 
410 GOSUB 60000sIF LEN(IN$)<>1 THEN PRINT "{down 0 }NE a LETTER, a PLEASE." s 
GOTO 400 srem 29690 
420 T=ASC(IN$)-64 srem 63364 

430 IF T<1 OR T>26 THEN PRINT "{down A}LETTER{6 0 1 eft down 6°T up} 

/^PLEASE1”sGOTO 400 srem 25420 
440 S(K)=TsS$(K)=IN$ srem 56095 
450 NEXT K srem 57948 

460 PRINT "{down H}ERE a ARE a THE a WHEELS < ,AND a SETTINGSs " srem 29406 
470 PRINT "{down}(YOU 1 LL A NEED A 'EM a TO a DECODE a THE a MESSAGE)" srem 63935 
480 GOSUB 890 srem 20597 

490 FOR K=>1 TO 3 sS (K) =ASC(S$ (K)) -64sNEXT K srem 13380 
500 PRINT "{down P}LEASE a ENTER a YOUR a MESSAGE." srem 27498 
510 PRINT "{down E}NTER a A a BLANK a LINE a WHEN a DONE." srem 53335 
520 FOR I»0 TO CT srem 11959 
530 PRINT "{wht}? A {gur}"; srem 27453 

540 GOSUB 60000sIF IN$="" THEN N=I-lsGOTO 590 srem 59995 
545 IF IN$="Q" THEN 60600 srem 31378 
550 CT$(I)=IN$ srem 51723 
560 NEXT I srem 42910 

570 PRINT "{down wht T}HAT'S a ALL a I a CAN a HANDLE... A SORRY." srem 27768 
580 N=CT srem 8195 

590 PRINT "{wht}";sIF N<0 THEN 770 srem 50252 
600 K«0 sGb 0 srem 46780 

610 PRINT "{down T}HE A ENCRYPTION A FOLLOWS...{down pur}" srem 707 

620 FOR 1=0 TO NsCT$=CT$(I) srem 58314 

630 FOR J=1 TO LEN(CT$) srem 40400 

640 F=ASC(HID$(CT$,J,1))-64sF=F AND 127 srem 11283 

650 IF F<1 OR F>26 THEN 730 srem 53589 
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660 FOR W»-2 TO 2:L=3-ABS(W)sGOSUB 950sNEXT WsREM L=l,2,3,2,l srem 48738 
670 PRINT CHR$(F+64); srem 6332 

680 K=K+1:IF K>4 THEN PRINT " A "j:K»0:G=G+lsIF G>5 THEN PRINT: 

G*»0 srem 63505 

690 S<1>»S<1)+1:IF S(l)<27 THEN 730 srem 21963 

700 S(l) =1:S‘(2) =S(2) +1':IF S(2)<27 THEN 730 srem 37215 

710 S (2) »1: S (3) “S (3) +1: IF S(3)<27 THEN 730 srem 35469 

720 S(3)»1 srem 30219 

730 NEXT JsNEXT I srem 15945 

750 IF K>0 THEN FOR J»1 TO 5-KSPRINT CHR$(26*RND(1)+65);sNEXT srem 61377 
760 IF G>0 OR K>0 THEN PRINT srem 19078 

770 PR$="twht A)NOTHER a MESSAGE"sDF$ b "Y , 'sGOSUB 910 srem 2182 
780 IF IN$ Bn N n THEN 60600 srem 4118 

790 PR$«"{S}AME a MACHINE a SETUP"sDF$ b "Y"sGOSUB 910:IF IN$="Y" THEN 
490 srem 65484 
800 GOTO 250 srem 60479 
810 T$»"ABCDE":FOR K»1 TO 3 srem 54945 
820 T=INT(RND(1) *LEN(T$))+1 srem 32435 
830 W$(K)=MID$(T$,T,1):W(K) =ASC(W$ (K) >-64 srem 5318 
840 U$°"":IF T>1 THEN U$»LEFT$(T$,T-1) srem 33535 
850 T$=U$+MID$(T$,T+1) srem 39087 

860 S(K)=INT(RND(l)*26)+lsS$(K)=CHR$(S(K)+64) srem 37139 
870 NEXT K:RETURN srem 39360 

890 PRINT "(down blu S)LOT" f "{W>HEEL" f "tSJETTING"sPRINT "Cblk 4°*}", 

"{5°*}" # n {7°* yel}" srem 40208 

900 FOR K»1 TO 3sPRINT K,W$(K) ,S$ (K)sNEXTsPRINT "twht)";sRETURN srem 49748 
910 PRINT "{down)";PR$;"? A ";sGOSUB 60000sIN$=LEFT$(IN$,1):IF IN$=" n THEN 
IN$=DF$ srem 3594 

920 IF IN$= n Q" THEN 60600 srem 41917 

930 IF IN$="Y" OR IN$="N" THEN RETURN srem 24767 

940 PRINT "(down P}LEASE A ANSWERS YES' A OR A 'NO'. "sGOTO 910 srem 64649 
950 F=F-S(L)+1:IF F<1 THEN F=F+26 srem 27666 
960 F=X%(W(L)fF) srem 52946 

970 F B F+S(L)“lsIF F>26 THEN F=F-26 srem 25382 
980 RETURN srem 34935 

144 lines, proof number = 18971 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 
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Important Variables in ENIGMA 

CT Maximum number of lines for message 

CT$() Storage for message 
DF$ Default answer to input routine 
F ASCII code of coded character 

G Counter variable for spacing 

L Current slot in encryption or message 
N Number of lines in message 

PR$ Phrase for input sequence 


S$() Setting for wheels (in ASCII) 

S() Setting for wheels 

U$ Screen formatting variable 

W Loop for wheel 

W$() Slot for each wheel (in ASCII) 

W() Slot for each wheel 

X%() Array for wheels and slots 


How ENIGMA Works 

100-230 DATA and set up procedures for wheels 
240-260 Ask if computer should set machine 
270-450 Have user set machine 
460-580 Display user's wheel settings and get 
message to be encoded 


590-760 Print encrypted message 

770-800 Ask for another message with same settings 

890-900 Print wheels and settings 

910-940 Yes/no input routine 

950-980 Encrypt one character 




CIRCLE 


Martin Mabee 


H ere's a “how-far-is-it-from-here-to- 
there?” program that uses what is 
called "great circle" navigation tech¬ 
niques. CIRCLE has a large DATA table with 
the latitude and longitude of more than 170 
cities around the world. If you want to use a city 
that isn't in the CIRCLE data base, you can 
enter the latitude and longitude from the 
keyboard. It's also easy to add your own infor¬ 
mation to the DATA table. 

When the program begins, it asks for infor¬ 
mation about the starting location with the 
message “Where from?”, and requests the 
starting letter (or several letters) for the name 
of the country or state. Next, it prints the name 
of each state or country on the screen, asking 

1 PG$="CIRCLE":AU$="MARTIN^MABEE":BG$="RETURN" srem 4702 
3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 
5 REM BOX 6905, SANTA BARBARA, CA 93160 
6 : 

10 REM AS OF 31JUL84 
90 GOTO 62000 srem 51784 

100 DR={pi 1/180 sD$=" (left Vl " :M$=" Clef tl 1 " :S$=" {left! : 

CR$=CHR$(13) srem 24585 
110 POKE VIC+32,6s POKE VIC+33,14 srem 40340 
120 DEF FNR(X)=INT(X*10+.5)/10 srem 15447 
130 PRINT "{clr whtl"; srem 48392 

140 PRINT "{downlWHERE^FROM?":X$="STARTING"sGOSUB 430 srem 38537 

150 IF N$="" THEN 130 srem 15720 

160 IF N$="* " THEN 140 srem 16923 

170 A0=DAsAl=MAsA2=SAsA0$=DA$sBA=LA srem 35087 

180 O0=DOsOl=MOsO2=SOsO0$=DO$sBO=LO srem 2527 

190 C0$=C$sN0$=N$ srem 57962 

200 PRINT "{3 0 down)WHERC/,TO?" :X$="DESTINATION " sGOSUB 430 srem 41542 

210 IF N $=" " OR N$="*" THEN 200 srem 31017 

220 A5=DAsA6=MAsA7=SAsA5$=DA$sEA=LA srem 28552 

230 05 =DOs06 =MOs07=SOs05$ =DO$sEO=LO srem 12430 

240 C5$=C$sN5$*N$ srem 5387 

250 GOSUB 1320 srem 599 

260 PRINT "{clr 2°down blklFROMs^{whtl";N0$;sIF C0$<>"" THEN 
PRINT ", A "?C0$; srem 31565 


vork, new 

48® 43' 9" A.- f §' 8'-' ■ 

.1 «T11 liT-Si 


whether that's the one you want. Press Y for yes, 
or RETURN if that isn’t what you want. If the 
location is not in the database, CIRCLE will tell 
you it doesn't know any more cities that start 
with that letter. If you press RETURN, it will ask 
for the name of the place, and then have you 
enter a latitude and longitude. After getting the 
starting information, it repeats the same se¬ 
quence for the destination. When you have en¬ 
tered all the information, it prints the latitude 
and longitude of the start and destination, and 
tells how far apart the two locations are. It 
gives distance in nautical and statute miles, 
kilometers, and gives the compass heading for a 
great circle route. 
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270 PRINTsPRINT TAB(5)/AO/DS/Al/MS/A2/SS/AOS sPRINT "tup)"/TAB(22); 
srem 49554 

280 PRINT 00;D$;01;M$/02;S$/00$ :rem 12913 

290 PRINT "(down blkJTO: {wht}^*"/N5S/ :IP C5$<>"" THEN PRINT ",*"/C5Sz 
srem 51598 

300 PRINTsPRINT TAB(5);A5/D$;A6?M$;A7;S$;A5$:PRINT "(up)"/TAB(22); 
srem 60267 

310 PRINT 05/D$/06/M$/07/S$/05S srem 13394 

320 X s ANsGOSUB 1440sPRINT "(down blkJDISTANCEs(wht)^"/ srem 4343 
330 PRINT D/D$/M/M$/S/S$ srem 64496 

340 PRINT FNR(NM)/TAB(10)/"NAUTICAL«MILES" srem 49241 

350 PRINT FNR(SM)/TAB(10)/"STATUTE^MILES" srem 56124 

360 PRINT FNR(KM)/TAB(10)/"KILOMETERS" srem 5957 

370 PRINT "(down blkJHEADINGs(whtJ**"/sX=HDsGOSUB 1440 srem 41751 

380 PRINT D/D$/M/M$/S/S$ srem 65029 

390 PRINT "{3°down)ANOTHER? A "/sGOSUB 60000 srem 22353 

400 IF IN$="Q" THEN 60600 srem 49680 

410 IF LEFTS(IN$,1)<>"N" THEN 130 srem 30298 

420 GOTO 60600 srem 30626 

430 PRINT "(down)WHAT«LETTER^DOES^.THE^STATE aOR^,COUNTRY" srem 62264 
440 PRINT "* a START a WITH? a "/sGOSUB 60000:IF IN$="" THEN GOSUB 690s 
GOTO 650 srem 18252 

445 LS=IN$sT$»LEFT$(INS,l)sIF T$<"A" OR T$>"Z" THEN 1010 srem 23768 

450 IF IN$“"Q" THEN 60600 srem 55706 

460 RESTOREsMRS-"":L$=IN$ :LE=LEN(LS) srem 6325 

470 READ NS,LAS,LOS srem 44154 

480 IF N$-" n THEN 1010 srem 39822 

490 IF LA$<>"" THEN 470 srem 29101 

500 IF LEFTS(NS,1)>LEFT$(L$,l) THEN 1010 srem 58286 

510 IF LEFTS (NS,LE)OLS THEN 470 srem 12317 

520 MR$="MORE*"sPRINT N$/"?*"/sGOSUB 60000 srem 7280 

530 IF IN$="Q" THEN 60600 srem 44041 

540 IF LEFTS(INS,1)<>"Y" THEN 470 srem 48808 

550 C$=N$sPRINT "{down)IS*THE A CITY..." srem 38537 

560 READ NS,LAS,LOS srem 35652 

570 IF LAS="" THEN 1040 srem 58749 

580 PRINT NS/"? A "/sGOSUB 60000 srem 4233 

590 IF IN$="Q" THEN 60600 srem 22415 

600 IF LEFTS(IN$,1)<>"Y" THEN 560 srem 42161 

610 DA$=RIGHT$(LAS,1)sDO$=RIGHT$(LOS,1) srem 25542 

620 SA=0sSO=0 srem 52209 

630 HA=VAL(RIGHTS(LAS,3))sMO=VAL(RIGHTS(LOS,3)) srem 6723 

640 DA=VAL(LAS)sDO=VAL(LOS) srem 14033 

650 LA=DA+MA/60+SA/3600sLO=DO+MO/60+SO/3600 srem 9765 

660 IF DA$="S" OR DA$="E" THEN LA=-LA srem 16426 

670 IF DO$="S" OR DO$="E" THEN LO=-LO srem 44620 

680 RETURN srem 13932 

690 PRINTsPRINTsIF X$="STARTING" THEN PRINT "(clr)" srem 21448 
700 PRINT "NAME a OF < ."/X$/" a LOCATION?«"/CRS/"^"/ srem 65059 
710 GOSUB 60000sN$=INSsC$="" srem 26584 
720 IF N$ s ="Q" THEN 60600 srem 12430 
730 IF IN$="" THEN RETURN srem 24901 

740 PR$="LATITUDE"sNW$="N"sSE$="S":MD=89sGOSUB 790 srem 64599 
750 DA=D:MA=M:SA=S:DA$=A$ srem 4622 

760 PR$="LONGITUDE"sNWS="W"sSE$="E"sMD=179sGOSUB 790 srem 24093 
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770 DO=DsMO=MsSO=SsDO$=A$ :rem 24571 

780 RETURN :rem 49666 

790 T(0)=0sT(l)=0sT(2)=0 :rero 8102 

800 PRINTsPRINT X$;"*";PR$;"?* b 7sGOSUB 60000:IF IN$="" THEN 800 :rem 54378 

810 IF IN$="Q" THEN 60600 srem 22841 

820 FOR N=0 TO 2:IF IN$="" THEN 900 srem 20595 

830 FOR T=1 TO LEM(IN$)sT$=MID$(IN$,T,l) :rem 9455 

840 IF T$<"0" OR T$>"9" THEN 860 srem 33903 

850 NEXT T:T=LEN(IN $)+1 :rem 55503 

860 T(N)«VAL(LEFT$(IN$,T-1))sIN$=MID$(IN$,T) srem 38392 
870 IF LEFT$(IN$,1)<>"," THEN 900 srem 31556 
880 IN$=MID$(IN$,2) srem 54635 
890 NEXT N srem 21951 

900 IF T<2 THEN PRINT "THAT'S*NOT*AN a ANGLE." sGOTO 800 srem 31231 
910 A=0sD=T(0)sM=T(l)sS=T(2) srem 4499 

920 IF D=0 AND M=0 AND S=0 THEN A$=NW$sGOTO 960 srem 64163 
930 IF IN$=NW$ OR IN$=SE$ THEN A$=IN$sGOTO 960 srem 42050 
940 IF IN$<>"" THEN PRINT "I*DON'T*KNOW*WHAT a 1 "; IN$; " '^ MEANS."s 
GOTO 790 srem 12836 

950 PRINT "YOUJ3IDN'T^SAY*;NW$;" 1 *OR A '";SE$;"sGOTO 800 srem 11808 
960 IF D<=MD THEN 980 srem 24139 

970 PRINT "NOaANGLES^BIGGERaTHAN"SPRINT MD;D$;59;M$;59;S$s 
GOTO 790 srem 52361 

980 IF M>59 OR S>59 THEN PRINT "BADaANGLE." sGOTO 790 srem 47 
990 PRINT PR$; " /V IS^";D;D$;M;M$;S;S$;A$ srem 41220 
1000 RETURN srem 32680 

1010 PRINT "I^DON 1 T^KNOW^ANY^";MR$;"COUNTRIESaOR" srem 26866 
1020 PRINT "STATESaSTARTINGaWITHa";L$" srem 65280 
1030 n$="*" sRETURN srem 2448 

1040 PRINT "IaDON'TaKNOWaANYaMOREaCITIESaINa"; srem 24941 
1050 IF POS(0)+LEN(C$)+1>39 THEN PRINT srem 49119 
1060 PRINT C$; ". " v srem 31564 
1070 N$="*"sRETURN srem 27682 

1320 T={pi}/180sBA=BA*TsEA=EA*TsBO=BO*T:EO=EO*T srem 45728 

1330 X=SIN(BA)*SIN(EA)+COS(BA)*COS(EA)*COS(EO-BO)sGOSUB 1400sAN=F srem 2130 
1340 IF BO=EO THEN HD=90*SGN(EA-BA)sGOTO 1370 srem 15289 
1350 X=(SIN(EA)-SIN(BA)*COS(AN))/(SIN(AN)*COS(BA))sGOSUB 1400s 
HD=F/DR srem 34769 

1360 IF SIN(EO-BO)>=0 THEN HD=360-HD srem 37278 
1370 NM=60*AN/DRsSM=NM*l.150779448sKM=SM/0.62137 srem 48410 
1380 AN=AN/DR srem 13040 
1390 RETURN srem 35046 

1400 IF X=0 THEN F={pi>/2sRETURN srem 8427 
1410 F=ATN(SQR(1-X*X)/X) srem 7847 
1420 IF F<0 THEN F=F+{pi) srem 62471 
1430 RETURN srem 59121 
1440 XX=(X*3600+.5)/3600 srem 52838 
1450 D=INT(XX)sXX=(XX-D)*60 srem 53501 
1460 M=INT(XX)sXX=(XX-M)*60 srem 9330 
1470 S=INT(XX)sRETURN srem 29400 
5000 DATA AFRICA,, srem 54419 

5010 DATA "CAPEaGOODaHOPE", 34/30N,69/10E srem 33250 

5020 DATA ARIZONA,, srem 36313 

5030 DATA PHOENIX, 33/25N,112/10W srem 28038 

5040 DATA ALASKA,, srem 49840 
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5050 DATA ANCHORAGE,61/ION f 150/0W srem 62639 

5060 DATA NOME,64/45N,165/25W :rem 59536 

5070 DATA "POINT^BARROW'Wl/ieNflSe/SOW :rem 50773 

5080 DATA ALGERIA,, :rem 20629 

5090 DATA ALGIERS,36/50N,3/0E srem 787 

5100 DATA ANTARCTICA,, srem 35787 

5110 DATA "LITTLE,,AMERICA",7 8/11S, 162/10W :rem 58438 

5120 DATA "SOUTH„POLE",90/0S,0/0W :rem 888 

5130 DATA ARGENTINA,, :rem 59774 

5140 DATA "BUENOS„AIRES ",34/40S,58/30W :rem 617 

5150 DATA ARTIC,, srem 3427 

5160 DATA "NORTH^POLE",89/59.9N,0/0W srem 34635 

5170 DATA AUSTRALIA,, srem 40787 

5180 DATA ADELAIDE,34/56S,138/36E srem 59811 

5190 DATA BRISBANE,27/30S,153/0E srem 61693 

5200 DATA CANBERRA,35/18S,149/8E srem 56799 

5210 DATA MELBOURNE,37/45S,144/58E srem 60054 

5220 DATA SYDNEY,33/55S,151/10E srem 39084 

5230 DATA AUSTRIA,, srem 26887 

5240 DATA VIENNA,48/12N,16/22E srem 1942 

5250 DATA BELGIUM,, srem 13956 

5260 DATA ANTWERP,51/13N,4/25E srem 59050 

5270 DATA BRUSSELS,50/50N,4/21E srem 12356 

5280 DATA BRAZIL,, srem 31258 

5290 DATA BRASILIA,16/13S,44/29W srem 30231 

5300 DATA "RIO„DE„JANEIRO",22/55S,43/12W srem 26382 

5310 DATA "SAO^PAULO",23/38S,46/37W srem 53634 

5320 DATA BOLIVIA,, srem 7367 

5330 DATA "LA^PAZ",16/30S,68/10W srem 13888 

5340 DATA CALIFORNIA,, srem 38029 

5350 DATA "SANTAJBARBARA",34/25.7N,119/50W srem 46826 

5360 DATA "LOS„ANGELES",34/ON,118/15W srem 26834 

5370 DATA SACRAMENTO,38/32N,121/30W srem 2080 

5380 DATA "SAN„DIEGO",32/4lN,117/8W srem 31513 

5390 DATA CAMBODIA,, srem 1400 

5400 DATA B PHOM„PENH",11/35N,104/55E srem 38164 

5410 DATA CANADA,, srem 11193 

5420 DATA MONTREAL,45/31N,73/34W srem 50488 

5430 DATA OTTAWA,45/27N,75/42W srem 42620 

5440 DATA QUEBEC,46/50N,71/15W srem 51090 

5450 DATA TORONTO,43/39N,79/20W srem 36805 

5460 DATA VANCOUVER,49/17N,123/50W srem 64723 

5470 DATA WINNIPEG,49/55N,97/6W srem 12586 

5480 DATA CEYLON,, srem 14128 

5490 DATA COLOMBO,6/55N,79/52E srem 38590 

5500 DATA CHILE,, srem 7826 

5510 DATA SANTIAGO,33/24S,70/45W srem 26274 

5520 DATA CHINA,, srem 23034 

5530 DATA CANTON,23/8N,113/20E srem 9894 

5540 DATA PEKING,39/55N,116/24E srem 30806 

5550 DATA SHANGHAI,31/15N,121/29E srem 30727 

5560 DATA COLOMBIA,, srem 35835 

5570 DATA BOGOTA,4/36N,74/5W srem 13896 

5580 DATA COLORADO,, srem 24741 

5590 DATA DENVER,39/45N,105/0W srem 31516 



5600 DATA CUBA,, :rem 53885 

5610 DATA HAVANA,23/7N,82/25W srem 57589 

5620 DATA CZECHOSLOVAKIA,, trem 58209 

5630 DATA PRAGUE,50/5N,14/25E srem 64843 

5640 DATA DENMARK,, srem 24043 

5650 DATA COPENHAGEN,55/43N,12/34E :rem 48120 

5660 DATA "DISTRICT-OF-COLUMBIA",, :rem 24451 

5670 DATA WASHINGTON,38/55N,77/4W :rem 38529 

5680 DATA "DOMINICAN..REPUBLIC",, srem 45365 

5690 DATA "SANTO-DOMINGO",18/30N,69/51W srem 44611 

5700 DATA ENGLAND,, :rem 55925 

5710 DATA BIRMINGHAM,52/3ON,1/50W :rem 20566 

5720 DATA LEEDS,53/50N,1/35W srem 32279 

5730 DATA LIVERPOOL,53/25N,2/55W srem 45590 

5740 DATA LONDON,51/30N,0/10W srem 26621 

5750 DATA MANCHESTER,53/30N,0/10W srem 2944 

5760 DATA ECUADOR,, srem 31812 

5770 DATA QUITO,0/l0S,78/35W srem 27999 

5780 DATA FINLAND,, srem 24690 

5790 DATA HELSINKI,60/8N,25/0E srem 23618 

5800 DATA FLORIDA,, srem 27893 

5810 DATA MIAMI,25/46N,80/12W srem 399 

5820 DATA FRANCE,, srem 62642 

5830 DATA BORDEAUX,44/50N,0/34W srem 49167 

5840 DATA MARSEILLES,43/18N,5/22E srem 41100 

5850 DATA PARIS,48/51N,2/20E srem 63094 

5860 DATA GEORGIA,, srem 25679 

5870 DATA ATLANTA,33/45N,84/23W srem 46107 

5880 DATA GERMANY,, srem 17856 

5890 DATA BERLIN,52/32N,13/25E srem 60414 

5900 DATA FRANKFURT,50/6N,8/41E srem 2953 

5910 DATA DUSSELDORF,51/13N,6/47E srem 3185 

5920 DATA ESSEN,52/43N,7/56E srem 18615 

5930 DATA HAMBURG,53/33N,10/0E srem 11160 

5940 DATA MUNCHEN,48/8N,11/35E srem 21314 

5950 DATA GREECE,, srem 46356 

5960 DATA ATHENS,38/ON,23/44E srem 14491 

5970 DATA GUATEMALA,, srem 51265 

5980 DATA GUATEMALA,14/38N,90/22W srem 44637 

5990 DATA HAITI,, srem 34407 

6000 DATA "PORT-AU-PRINCE",18/32N,72/19W srem 41510 

6010 DATA HAWAII,, srem 24033 

6020 DATA HONOLULU,21/19N,157/50W srem 61382 

6030 DATA "HONG-KONG",, srem 21914 

6040 DATA KOWLOON,22/27N,114/10B srem 49096 

6050 DATA HUNGARY,, srem 60679 

6060 DATA BUDAPEST,47/30N,19/3E srem 20776 

6070 DATA ICELAND,, srem 36034 

6080 DATA REYKJAVIK,64/10N,22/0W srem 60085 

6090 DATA ILLINOIS,41/50N,87/45W srem 62680 

6100 DATA CHICAGO,41/50N,87/45W srem 6492 

6110 DATA INDIA,, srem 60201 

6120 DATA BOMBAY,18/56N,72/51E srem 26012 

6130 DATA CALCUTTA,22/35N,88/21E srem 23804 

6140 DATA DELHI,28/40N,77/14E srem 36598 
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6150 DATA INDONESIA,, :rem 10129 

6160 DATA DJAKARTA,6/8S r l06/45E srem 59984 

6170 DATA IRAN,, srem 2415 

6180 DATA TEHRAN,35/40N,51/26E trem 14021 

6190 DATA IRAQ,, :rem 29434 

6200 DATA BAGHDAD,33/20N,44/26E :rem 24496 

6210 DATA IRELAND,, :rem 56626 

6220 DATA BELFAST,54/40N,5/50W :rem 62372 

6230 DATA DUBLIN,53/20N,6/5W srem 15977 

6240 DATA ISRAEL,, srem 38065 

6250 DATA "TEL*AVIV",32/5N,34/46E srem 46785 

6260 DATA HAIFA,32/49N,34/59E :rem 53414 

6270 DATA JERUSALEM,31/47N,35/13E srem 11046 

6280 DATA ITALY,, srem 56927 

6290 DATA FLORENCE,43/47N,ll/15E srem 36125 

6300 DATA MILANO,45/27N,9/10E srem 14843 

6310 DATA NAPOLI,40/50N,16/14E srem 4874 

6320 DATA ROME,41/54N,12/28E srem 56245 

6330 DATA JAMAICA,, srem 5337 

6340 DATA KINGSTON,17/58N,76/48W srem 17437 

6350 DATA JAPAN,, srem 33197 

6360 DATA HIROSHIMA,34/23N,132/27E srem 55917 

6370 DATA KOBE,34/40N,135/12E srem 41009 

6380 DATA NAGASAKI,32/47N,129/52E srem 48245 

6390 DATA OSAKA,34/39N,135/27E srem 53767 

6400 DATA TOKYO,35/40N,13~8/45E srem 61082 

6410 DATA YOKOHAMA,41/5N,141/16E srem 46847 

6420 DATA KOREA,, srem 50453 

6430 DATA PUSAN,35/5N,129/2E srem 48725 

6440 DATA SEOUL,37/3lN,127/6E srem 45584 

6450 DATA KENYA,, srem 9729 

6460 DATA NAIROBI,1/18S,36/52E srem 8969 

6470 DATA LEBANON,, srem 53342 

6480 DATA BEIRUT,33/52N,35/30E srem 45951 

6490 DATA LOUISIANA,, srem 61398 

6500 DATA "NEW*ORLEANS",30/0N,90/lW srem 29242 

6510 DATA LUXEMBOURG,, srem 45064 

6520 DATA LUXEMBOURG,49/37N,6/8E srem 26682 

6530 DATA MARYLAND,, srem 34888 

6540 DATA BALTIMORE,39/18N,76/38W srem 14688 

6550 DATA MASSACHUSETTS,, srem 57203 

6560 DATA BOSTON,42/20N,71/5W srem 42854 

6570 DATA MEXICO,, srem 18464 

6580 DATA "MEXICO A CITY",19/25N,99/10W srem 30383 

6590 DATA GUADALAJARA,20/30N,103/20W srem 14639 

6600 DATA MICHIGAN,, srem 5043 

6610 DATA DETROIT,42/23N,83/5W srem 5501 

6620 DATA MINNESOTA,, srem 56542 

6630 DATA MINNEAPOLIS,44/59N,93/17W srem 2766 

6640 DATA MISSOURI,, srem 36870 

6650 DATA "KANSAS^CITY",39/2N,94/33W srem 60346 

6660 DATA MONACO,, srem 14429 

6670 DATA MONACO,43/44N,7/24E srem 9203 

6680 DATA MOROCCO,, srem 44316 

6690 DATA CASABLANCA,33/39N,7/35W srem 12023 




6700 DATA TANGIER,35/49N,5/52W srem 31485 
6710 DATA NEPAL,, srem 53676 

6720 DATA "EVEREST*MT.",27/59N,86/56E :rem 63860 
6730 DATA NETHERLANDS,, srem 36333 
6740 DATA AMSTERDAM,52/21N,4/54E srem 62505 
6750 DATA ROTTERDAM,51/55N,4/28E srem 270 
6760 DATA NEVADA,, :rem 6939 

6770 DATA "LAS*VEGAS",36/10N,115/10W :rem 43970 

6780 DATA RENO,39/32N,119/49W srem 41703 

6790 DATA "NEW*.YORK", , srem 40125 

6800 DATA ALBANY,42/40N,73/49W srem 34832 

6810 DATA BUFFALO,42/52N,78/55W srem 52260 

6820 DATA "NEW..YORK",40/43N,74/1W srem 14906 

6830 DATA "NEW..ZEALAND",, srem 10137 

6840 DATA AUCKLAND,36/55S,174/47E srem 31187 

6850 DATA WELLINGTON,41/16S,174/47E srem 59568 

6860 DATA NICARAGUA,, srem 40680 

6870 DATA MANAGUA,12/6N,86/18W srem 23765 

6880 DATA NORWAY,, srem 39942 

6890 DATA OSLO,59/56N,10/45E srem 1344 

6900 DATA OHIO,, srem 37623 

6910 DATA AKRON,41/4N,81/31W srem 44499 

6920 DATA CLEVELAND,41/30N,81/41W srem 26462 

6930 DATA OKINAWA,, srem 27316 

6940 DATA NAHA,26/15N,127/45E srem 32489 

6950 DATA OREGON,, srem 18822 

6960 DATA PORTLAND,45/30N,122/40W srem 56202 

6970 DATA PAKISTAN,, srem 27107 

6980 DATA DACCA,23/42N,90/22E srem 1084 

6990 DATA KARACHI,24/51N,67/2E srem 23489 

7000 DATA PENNSYLVANIA,, srem 32608 

7010 DATA PHILADELPHIA,39/57N,75/10W srem 44634 

7020 DATA PITTSBURGH,40/26N,79/57W srem 34737 

7030 DATA PERU,, srem 64935 

7040 DATA LIMA,12/6S,77/3W srem 6043 

7050 DATA PHILIPPINES,, srem 55355 

7060 DATA MANILA,14/36N,120/59E srem 33953 

7070 DATA POLAND,, srem 706 

7080 DATA KATOWICE,50/15N,18/59E srem 41113 

7090 DATA PORTUGAL,, srem 6881 

7100 DATA LISBON,38/44N,9/8W srem 30114 

7110 DATA RHODESIA,, srem 59979 

7120 DATA SALISBURY,17/54S,31/30E srem 42031 

7130 DATA ROMANIA,, srem 15524 

7140 DATA BUCHAREST,44/25N,26/7E srem 19514 

7150 DATA "SAUDI..ARABIA",, srem 39075 

7160 DATA MECCA,21/26N,39/49E srem 44316 

7170 DATA SCOTLAND,, srem 30057 

7180 DATA GLASGOW,55/53N,4/15W srem 4704 

7190 DATA SICILY,, srem 34883 

7200 DATA PALERMO,38/ON,13/5E srem 4529 

7210 DATA SINGAPORE,, srem 57452 

7220 DATA SINGAPORE,1/17N,103/51E srem 22500 

7230 DATA "SOUTH ..AMERICA",, srem 60859 

7240 DATA "CAPE..HORN",56/OS,68/0W srem 17971 
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7250 DATA JOHANNESBURG,26/10S,28/2E :rem 31718 

7260 DATA "SOVIET^UNION",, :rem 62359 

7270 DATA KIEV,50/28N,30/29E :rem 29247 

7280 DATA LENINGRAD,59/55N,30/25E :rein 13761 

7290 DATA MINSK,53/54N,27/34E srem 4663 

7300 DATA MOSCOW,55/45N,37/37E :rem 85 

7310 DATA VLADIVOSTOK,43/11N,131/53E srem 781 

7320 DATA SPAIN,, srem 14091 

7330 DATA BARCELONA,38/31N,6/5lW srem 40716 

7340 DATA MADRID,40/25N,3/43W srem 3392 

7350 DATA SWEDEN,, srem 59001 

7360 DATA STOCKHOLM,59/20N,18/5E srem 5347 

7370 DATA SWITZERLAND,, srem 31896 

7380 DATA GENEVA,46/13N,6/9E srem 11797 

7390 DATA ZURICH,47/15N,8/40E srem 39997 

7400 DATA SYRIA,, srem 40876 

7410 DATA DAMASCUS,33/30N,36/19E srem 4024 

7420 DATA TAHITI,, srem 27860 

7430 DATA PAPEETE,17/32S,149/39W srem 52429 

7440 DATA TANZANIA,, srem 7892 

7450 DATA KILIMANJARO,3/2S,37/20E srem 4200 

7460 DATA TEXAS,, srem 29297 

7470 DATA DALLAS,32/47N,96/48W srem 54248 

7480 DATA "FORT„WORTH",32/45N,97/20W srem 45703 

7490 DATA HOUSTON,29/45N,95/25W srem 54696 

7500 DATA THAILAND,, srem 9271 

7510 DATA BANGKOK,13/44N,100/30E srem 17434 

7520 DATA TUNISIA,, srem 60610 

7530 DATA TUNIS,36/49N,10/10E srem 65078 

7540 DATA TURKEY,, srem 3849 

7550 DATA ANKARA,39/55N,32/50E srem 28197 

7560 DATA ISTANBUL,41/2N,28/57E srem 15326 

7570 DATA "UNITED JVRAB^REPUBLIC",, srem 10502 

7580 DATA CAIRO,30/3N,31/15E srem 20634 

7590 DATA URUGUAY,, srem 39868 

7600 DATA MONTEVIDEO,34/55S,56/llW srem 11574 

7610 DATA UTAH,, srem 2450 

7620 DATA "SALT a LAKE„CITY", 40/43N,111/55W srem 10271 

7630 DATA VIETNAM,, srem 65090 

7640 DATA HANOI,21/lN,105/52E srem 39104 

7650 DATA SAIGON,10/46N,106/43E srem 7209 

7660 DATA VIRGINIA,, srem 29354 

7670 DATA RICHMOND,37/34N,77/24W srem 22736 

7680 DATA VENEZUELA,, srem 11743 

7690 DATA CARACAS,10/35N,66/56W srem 56726 

7700 DATA WASHINGTON,, srem 7946 

7710 DATA SEATTLE,47/36N,122/21W srem 47386 

7720 DATA WISCONSIN,43/9N,87/55W srem 11373 

7730 DATA MILWAUKEE,43/9N,87/55W srem 48126 

7740 DATA YUGOSLAVIA,, srem 12021 

7750 DATA BELGRADE,44/50N,20/30E srem 28072 

7760 DATA T,, srem 62597 


448 lines, proof number = 10591 
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Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables in CIRCLE 

A$ Direction input for latitude & longitude 

AO Degrees of the first city latitude 

A0$ Direction of first city 

A1 Minutes of first city 

A2 Seconds of first city 

A5 Degrees of the second city latitude 

A5$ Direction of second city 

A6 Minutes of second city 

A7 Seconds of second city 

AN Distance in miles 

BA Measure of first latitude 

BO Measure of first longitude 

C$ Current city name 

C0$ Name of first city 

C5$ Name of second city 

D$ Degree marker 

DA Degree of current latitude 

DA$ Direction of current latitude 

DO Degree of current longitude 

DO$ Direction of current longitude 

EA Second latitude 

EO Second longitude 

HD Full heading 

KM Distance in Kilometers 

LA Current latitude 


LA$ Current latitude 

LO Current longitude 

LO$ Current longitude 

M$ Minutes marker 

MA Minutes of current latitude 
MD Maximum degree 
MO Minutes of current longitude 
N$ Current name of state or country or city 
N0$ Name of first state 

N5$ Name of second state 

NM Distance in nautical miles 

OO Degrees of first city longitude 
O0$ Direction of first city 
Ol Minutes of first city 

02 Seconds of first city 

05 Degrees of the second city longitude 
05$ Direction df^second city 
06 Minutes of second city 

07 Seconds of second city 

S$ Seconds marker 

SA Seconds of current latitude 

SM Statute miles 
SO Seconds of current longitude 
T() Values of latitude and longitude when user 
inputs them 


How CIRCLE Works 

100-130 Set variables, constants and screen 

140-250 Ask for the from and to locations 
260-380 Print final calculated results 

390-420 Run again? 

430-540 Scan through and inquire if current 

country or state read from data is to be 
selected as FROM / TO location 
550-680 Look for city and get data for that location 
690-780 Ask for data about location not found in 
DATA 

790-890 Ask for specific data about unknown/new 
location... 

900-1000 Check the data 


1010-1070 

1320-1390 

1400-1430 

1440-1470 

5000-7760 


Message that data doesn't exist for the 
desired location 

Computing distance between cities 
Computing distance between cities 
Rounds off degrees, minutes and seconds of 
a heading 

DATA for locations as follows: for country 
or state, the name, followed by two 
commas; for a city, the name, followed by a 
comma, degree latitude, slash (/) minutes 
latitude, “N"orth or "S"outh, comma 
degree longitude, slash, minutes longitude, 
“W"est or *E"ast 






RULER 


Glen Fisher 


T his educational amusement will help 
young children learn how to work with 
a ruler, using inches and fractions of an 
inch. (Sorry, no metric units here.) When the 
game begins, it tells you to draw a line of a 
certain length. Use the joystick to draw the line, 
and press the joystick button when done. When 



the line is the correct length, a friendly message 
is printed. If the line is too short, the missing 
section is filled with light blue, and the pro¬ 
gram prints a message telling you how short it 
is. If the line is too long, it prints the incorrect 
portion in red, and tells you how much longer 
than the target your line is. 


1 PG$="RULER" sAU$="GLEN ■'FISHER" :BG$="JOySTICK^BUTTON " :rem 12065 

3 : 

4 REM COPYRIGHT (C) 1984 THE CODE WORKS 

5 REM BOX 6905, SANTA BARBARA, CA 93160 

6 : 

10 REM AS OF 26JUL84 
90 GOTO 62000 :rem 51784 
100 DIM RA$(4),FR$(10), OK$(10) :rem 64908 

105 POKE VIC+32,12:POKE VIC+33,1 sPRINT ''{clr c^n)" srera 46687 

110 DEF FNJ(N)=15-(PEEK(JS) AND 15) :rem 31491 

115 DEF FNB(N)“PEEK(JS) AND 16:BS$=CHR$(20) :rem 14785 

170 DATA "*** ^PERFECT1 A ***","VERY A G00D1","COULD A BE*BETTER.","FAIR" 

:rero 17089 

171 DATA *KEEP^TRYING." srem 42579 

172 FOR 1*0 TO 4:READ RA$(I)sNEXT srera 14956 

180 DATA "THAT'SJRIGHTl", "CORRECT1", "NICEJfORKl" srem 26524 
182 DATA "YOU'RE A GOODI","VERYJ300D1 ","WAY a TO a GOI " srem 23173 
184 DATA "BULL*S-EYE 1","SUPER 1","EXCELLENT1" srem 56815 
186 DATA "PERFECT1" srem 23627 

189 FOR 1=1 TO 10sREAD OK$(I)sNEXT I srem 5057 

190 DATA "", " A (upJKdown left C down left)8{up}"," A (up}l{down left C down 
left)4(up}"," A (up)3{down left C down left)8{up)"," A {up)l(down left C 
down left}2Iup}"," A {up)5tdown left C down left>8{up}" srem 13235 

192 DATA " A (up}3(down left C down left)4{up)"," A (up}7{down left C down 
left)8{up>" srem 14399 

194 FOR 1=1 TO 8sREAD FR$(I)sNEXT srem 47770 

200 AA=RND(TI) srem 20386 

202 EP$="(home 22°downi" srem 23846 

210 OK=0sWR=0 srem 37082 

220 N1=N srem 24014 

226 N=INT(RND(AA)*32)+lsIF N=N1 THEN 226 srem 58452 

310 IN=INT(N/8) srem 36649 

320 NU=N-8*IN srem 40697 

403 PRINT "(wht)" srem 22786 

405 PRINT "{clr 14 e down)" srem 52291 

410 PRINT " AA (rvs-on 36°0)" srem 8763 




___ RULER 169 

420 PRINT " AA {rvs-on G} A {G} A {G} A {G} A {G>.{G} A {G> A {G> A {G>.{G}.{G}.{G>.{G} 
A {G} A {G} A {H} A {H} A ?G} A "' :rem 56336 

430 PRINT " AA {rvs-on G}*»*{G}. aa {G}».J6}„**{G}».a{G}.^{G} a ..{G}„*{H} 

AAA " teem 11696 

440 PRINT " AA {evs-on G 7°space G 7°space G 7°space G 7°space H} AAA " 
trem 19549 

450 PRINT " AA {cvs-on G 6 0 space}l{7 0 space}2{7 0 space}3{7 0 space}4{4°space}" 
teem 44233 

460 PRINT " AA {evs-on L 35°P>" teem 47684 
465 PRINT "( cyn )" teem 55542 
470 PRINT "(home 6"down}" teem 19794 
480 PRINT " aa DRAW a A"; teem 25327 
482 IF IN>0 THEN PRINT STRS(IN); teem 4 
484 PRINT FR$(NU+1);" A INCH A LINE{5"down}" teem 37125 
590 K«0 1 PRINT " AA ") teem 34652 

610 GOSUB 60500 teem 20531 

611 JV=FNJ(0):JB-FNB(0)tlF JB=0 THEN 640 teem 64819 
616 IF JV AND 4 AND K>0 THEN K=K-1tPRINT BS$; teem 47190 
618 IF JV AND 8 AND K<36 THEN K=K+1tPRINT "(blu evs-on> A tevs-off}"; 

teem 49661 

620 FOR DE«1 TO 8tNEXT DEtGOTO 610 teem 1475 
640 PRINTtPRINT "( cyn 3°up}"; teem 39199 
650 IF K>N THEN 820 teem 26176 
660 IF K<N THEN 900 teem 15020 
670 OK=OK+l teem 65451 

680 PRINT "{up} AA ";OK$(OK)tGOTO 1060 teem 22150 

820 D$="LONG"tSY$="{eed left evs-on} A {evs-off left}"tGOTO 1000 teem 56339 
900 D$="SHORT"tSY$="{cyn evs-on} A {evs-off>■ teem 15546 
1000 WR=WR+1 1 DF«ABS(K-N) teem 63961 
1010 PRINT "(up) aa YOUR a LINE a WAS"; teem 24976 

1020 IN=INT(DF/8)tNU=DF-8*INtIF IN>0 THEN PRINT STR$(IN); teem 60660 
1030 PRINT FR$(NU+1);° A INCH";tlF DF>8 THEN PRINT "ES"; teem 19663 
1040 PRINT " A TOO A ";D$;".{2°down>" teem 1798 

1050 PRINT TAB(K+2);sFOR 1=1 TO DFtPRINT SY$;:NEXT I teem 25283 
1060 JB»FNB(0)tlF JB=0 THEN 1060 teem 48432 

1070 PRINT EPS; "{cyn ^n)";TAB(4) ; "PRESS A JOYSTICK A {evs-on>BUTTON{cvs-Off > 

A TO A CONTINUE" teem 52820 

1100 GOSUB 60500tJB=FNB(0)sIF JB=16 THEN 1100 teem 1688 
1110 JB S FNB(0)tIF JB«0 THEN 1110 teem 38813 
1120 IF WR+OK<10 THEN 220 teem 3962 

1220 PRINT "{cle 6°down cyn} A SCOREt";CR$;"(blu 8°Y}" teem 35636 
1230 PRINT "(cynlRIGHTt";OK teem 27658 
1240 PRINT "WRONGt";WR teem 17545 
1242 PRINT "{down}"; teem 7610 

1250 IF WR>4 THEN PRINT "YOU A NEEDPRACTICE 1" teem 23439 
1260 IF WR04 THEN PRINT RA$ (WR) teem 738 
1280 PRINT teem 1433 

1300 PR$="TRY a AGAIN? a YES a NO" tJM=2 1 JT=11 1 JW=4 1 IN=ltJC$="{cyn blk}" 
teem 55009 

1320 GOSUB 60200tIF IN=1 THEN 210 teem 13700 
1330 GOTO 60600 teem 48609 


125 lines? pcoof number = 52947 
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COMMODORE 64 FUMAND GAMES Volume 2 


Reminder: Now be sure to enter the standard 
framework lines 60000 to 62200. See page XV 


Important Variables lit RULER 

AA Rounding variables for random numbers 

BS$ Character code for backspace 
D$ Error message for incorrect length 
DE Delay loop variable 
DF How short or long the line is 
EP$ Cursor characters for screen formatting 
FR$() Array of eighths of inches 
JB Joystick button is pressed 


JV Joystick value 

K Length of line on screen, in 1/8 inches 

N Length of line to be drawn, in 1/8 inches 

OK Number of correct tries 

OK$0 Messages if a correct length is drawn 
RA$() Rating messages for end of game 
SY$ Cursor and color codes for line on screen 
WR Number of wrong tries 


How RULER Works 


100-210 Initialize arrays and variables 

220-320 Compute a random length to be drawn 
403-590 Display ruler and; length of line to draw 
610-620 Joystick routine to draw line 


640-1050 Determine if line was short, long, or 
correct, and show differences 
1060-1120 Wait for button push to continue 
1220-1330 End of game routine 
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COMPUTER BOOKS 
WITH A DIFFERENCE! 

_SOFTWARE MASTER FOR THE IBM PC 

by Ted Leonsis and UST Magazine (X38-125, $39.95) 

Here is the only package on the IBM PC that is designed through¬ 
out to help the business or professional end-user make the right 
choice of software and that lets you sample that software before 
buying. The book condenses hardware information down to the 
basics. The diskette, bound right into this package, is a unique 
sampler diskette. It is ready to be run, giving you the opportunity to 
see and feel just how some of the world’s best-selling programs 
operate. This unique package will show you how to get the most 
out of your IBM PC. 

Available in large-size quality paperback. 

_SOFTWARE MASTER FOR PFS 

by Ted Leonsis and LIST Magazine (X38-217, $14.95, U.S.A.) 

(X38-218, $15.95, Canada) 

IBM and APPLE users everywhere have chosen the highly 
acclaimed and bestselling PFS products for their simplicity, practi¬ 
cality and price. Here is the only in-depth guide to America’s first 
family of integrated software. An applications survey of all PFS 
programs and critical interviews with actual users are among its 
many outstanding features. This invaluable book will help both 
professionals and home users multiply their computing power by 
choosing the right combination of programs while getting the most 
from PFS products. 

Available in large-size quality paperback. 

WARNER BOOKS 
P.O. Box 690 
New York, N.Y. 10019 

Please send me the books I have checked. I enclose a check or money order 
(not cash), plus 500 per order and 500 per copy to cover postage and handling.* 
(Allow 4 weeks for delivery.) 

_ Please send me your free mail order catalog. (If ordering only the 

catalog, include a large self-addressed, stamped envelope.) 

Name-— 

Address- 


102 1 

- J 


City--- 

State_Zip 

*N.Y. State and California residents add applicable sales tax. 





OTHER IMPORTANT COMPUTER BOOKS 1 

FROM WARNER , 

-COMMODORE 64 FUN AND GAMES, VOLUME 2 . 

by Ron Jeffries and Glen Fisher (X38-183-7, $12.95, USA.) 

(X38-184-5, $13.95, Canada) I 
Here’s an all-new games book for one of the hottest home computers! | 
The authors’ first book proved a popular bestseller. Now, Volume 2 is 
even bigger and better! This new book offers 35 original fun-and- I 
games programs featuring action, strategy, solo and group games and | 
races against time along with a “proofreading” program that prevents 
user-errors, playing and programming tips and much more. Perfect for ' 
gift-giving! I 

Available in large-size quality paperback. . 

_FREE SOFTWARE FOR THE IBM PC . 

by Bertram Gader and Manuel V. Nodar (X38-198, $10.95, U.S.A.) 1 

(X38-199, $12.95, Canada) | 
This is the first complete guide to free software for the IBM PC with . 
listings and instructions for how to gain access to more than 250 
programs available in the public domain. These free software pro- I 
grams are available to anyone with an IBM PC and a telephone hook- . 
up. Owners of the IBM PC and personal computers compatible with it 1 
will find this book an indispensable guide. I 

Available in large-size quality paperback. I 

_THE COMPLETE SOFTWARE MARKETPLACE . 

by Roger Hoffmann (X38-024, $17.95, U.S.A.) 

(X38-025, $18.95, Canada) I 
This unique guidebook is for those home/personal computer owners | 
who want to sell a software idea or program either to a company or 
directly to the public. It tells you exactly who wants and buys what in the ' 
software/hardware industries, for how much, how often, what format | 
they want it in, and what they want most and least. There is no other 
book which can tell the reader, comprehensively, what to make of his or * 
her million dollar idea. I 

Available in large-size quality paperback. . 

WARNER BOOKS , 

P.O. Box 690 

New York, N.Y. 10019 I 

Please send me the books I have checked. I enclose a check or money order | 
(not cash), plus 500 per order and 500 per copy to cover postage and handling.* . 
(Allow 4 weeks for delivery.) 1 

-Please send me your free mail order catalog. (If ordering only the I 

catalog, include a large self-addressed, stamped envelope.) ■ 


Name _ 
Address 


City 


L 


State__Zip 

*N.Y. State and California residents add applicable sales tax. 
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AND STILL MORE COMPUTER BOOKS! 

_BASIC WITHOUT MATH 

by Charles Platt (X38-158-6, $9.95, U.S.A.) 

Available in February: (X38-159-4, $10.95, Canada) 

No more fractions, no more formulas, no more frustrations! Written in 
plain English and based on the author’s successful college course, this 
book is the first to teach you BASIC (the most widely-used computer 
language) without the stumbling-block of learning higher mathematics. 
Learn to design your own programs through simple logic. All you need 
is addition, subtraction and this friendly, entertaining book. 

Available in large-size quality paperback. 

_THE ELEMENTS OF FRIENDLY SOFTWARE DESIGN 

by Paul Heckel (X38-040-7, $8.95, U.S.A.) 

(X38-041-5, $10.75, Canada) 
How do you go about writing software programs that your audience will 
readily understand and can easily use? Author Paul Heckel says that a 
successful designer must combine the knack of thinking visually with 
other proven techniques from the communications arts so that he can 
keep the user’s needs ahead of the engineering task. Citing sources as 
diverse as Disney, Picasso and Einstein, Heckel has written an engag¬ 
ing yet practical and indispensable guide for the software designer. 
Available in large-size quality paperback. 

_THE POLICEMAN’S BEARD IS HALF CONSTRUCTED 

Computer Prose and Poetry by RACTER, (X38-051-2, $9.95, U.S.A.) 
Introduction by William Chamberlain, (X38-052-0, $10.95, Canada) 
Illustrations by Joan Hall 

RACTER’s work has already been featured at the Whitney Museum 
and in Omni magazine. Now RACTER has written an entertaining and 
intriguing book. But this special author is a computer! Journey through 
the “mind” of a computer and delight in RACTER’s stories, poetry, 
imagined conversations, thoughts and strange imagery. Computer 
enthusiasts will be fascinated by RACTER’s first book. 

Available in large-size quality paperback. 

WARNER BOOKS 
P.O. Box 690 
New York, N.Y. 10019 

Please send me the books I have checked. I enclose a check or money order 
(not cash), plus 500 per order and 500 per copy to cover postage and handling.* 
(Allow 4 weeks for delivery.) 

_ Please send me your free mail order catalog. (If ordering only the 

catalog, include a large self-addressed, stamped envelope.) 

Name______ 

Address-—- 

City----- 

State-—-Zip- 


I *N.Y. State and California residents add applicable sales tax. 104 I 
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YOU’RE A WHOLE LOT SMARTER WITH WEBSTER’S, i 

GET A HANDY BOXED SET CONTAINING 6 ' 

MAJOR REFERENCE BOOKS! j 

_WEBSTER’S NEW WORLD DICTIONARY OF 1 

THE AMERICAN LANGUAGE I 

David B. Guralnik, Single copies: (Q31-299, $3.50, U.S.A.) , 

editor (Q31-300, $3.95, Canada) 

_WEBSTER’S NEW WORLD THESAURUS 1 

by Charlton Laird Single copies: (Q31-203, $2.95, U.S.A.) I 

(Q31-204, $3.75, Canada) | 

-A DICTIONARY OF SYNONYMS AND ANTONYMS , 

by Joseph Devlin Single copies: (Q31-310, $2.95, U.S.A.) 

(Q31-311, $3.75, Canada) I 

-HOW TO BUILD A BETTER VOCABULARY I 

by Maxwell Nurnberg Single copies: (Q31-306, $3.50, U.S.A.) , 
and Morris Rosenblum (Q31-307, $4.50, Canada) 

-A NEW GUIDE TO BETTER WRITING 1 

by Rudolph Flesch Single copies: (Q31-304, $3.50, U.S.A.) I 

and AM. Lass (Q31-305, $4.50, Canada) , 

-SPEED READING MADE EASY . 

by Nila Banton Smith Single copies: (Q31-308, $3.50, U.S.A.) 1 

(Q31-309, $4.50, Canada) I 

All six books in handy boxed set for only . 

(Q11-237, $19.90, U.S.A.) 1 
(Q11-238, $24.95, Canada) 1 


1 WARNER BOOKS 
| P.O. Box 690 
New York, N.Y. 10019 

Please send me the books I have checked. I enclose a check or money order 
I (not cash), plus 500 per order and 500 per copy to cover postage and handling.* 
I (Allow 4 weeks for delivery.) 

I - Please send me your free mail order catalog. (If ordering only the 

catalog, include a large self-addressed, stamped envelope.) 

■ Name___ 

. Address___ 

. City____ 

State---Zip_ 

* *N.Y. State and California residents add applicable sales tax. 
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The Next Exciting Game Book 
for Everyone with a C-64! 

Action games, tests of skill, races against time, solo and. group 
contests, adaptations of classic strategy games.. .this book 
gives you more than 30 new game programs especially designed 
for the Commodore 64™ games that take full advantage of your 
computer’s color, sound, sprite, and character graphic capabil¬ 
ities. There are fascinating short games for beginners, and 
longer, more complex and challenging games for intermediate 
and advanced players. 

Soon you’ll be playing: 

■ MISERII. The adventure continues., .the sequel to the 
popular treasure hunt program from volume one. 

■ AMBUSH You’re alone in the woods with limited resources. 

Can you trap your enemy before he traps you? 

■ SHEEP. A test of skill with great graphics. Real sheep were 
never this ornery! 

■ MAJCET. An ingenious new board game for one or two players. 
Strategy and logic lovers take note! 

■ CORONIA In this simulation game you’re the absolute ruler. 

Just watch out for the plagues, invasions, and revolutions! 

And dozens more original computer games. 


Features: 

■ “Proofreading” program to catch user typos and eliminate 
bugs as you enter each line 

■ Screenshot of each program in action 

■ Complete game instructions and playing tips 

■ Easy step-by-step instructions for entering programs 

■ Programmer aids and tips to let you change the rules, make 
the games more challenging, and add new playing features 
of your own. 


70993 01295 


38 183 


ISBN D-44b-3fllfl3-7 


O VAARNER SOFTWARE 
\AARNER BOOKS 

A Warner Communications Company 
0-446-38183-7 (U.S.A.) 0-446-38184-5(CAN.) 
COVER PRINTED IN U.S.A. 

1984 WARNER BOOKS 







































